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PREFACE 



The front matter includes a Table of Contents and an Introduction to the manual. Sections I 
through III describe the form of source programs and the types, identification, and format of 
data and expressions used in RTE FORTRAN IV. Sections IV through IX describe the 
language elements used to code a source program, including the formats and uses of RTE 
FORTRAN IV statements. The Appendixes describe the format of data in memory, the form of 
RTE FORTRAN IV jobs, departures from and extensions of ANSI FORTRAN IV specifications, 
features included in RTE FORTRAN IV for compatibility with HP FORTRAN, RTE 
FORTRAN IV Compiler error diagnostics, the HP character set for computer systems, and the 
RTE FORTRAN IV invocation command for RTE-II, RTE-III, RTE-IV, and RTE-M Operating 
Systems. 



NOTE: Throughout the manual are special boxed notes that 
explain departures from ANSI FORTRAN IV specifi- 
cations or features for compatibility with HP 
FORTRAN. 



This manual is a reference text for programmers who have had FORTRAN programming 
experience, either with HP FORTRAN or with other FORTRAN compilers. 



The documentation maps on the following pages are a guide to HP documentation pertinent to 
the use of RTE FORTRAN IV. 
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INTRODUCTION 



COMPILER PURPOSE 



The RTE FORTRAN IV Compiler is used to construct object language programs from 
source language programs written according to the rules of the RTE FORTRAN IV 
language described in this manual. 



FILE DEFINITION 



In the following discussion, a file is defined to be a sequential access device 
which may be either on a mass storage device such as a disc, or an external 
device such as a card reader. 



COMPILER SYNOPSIS 



The RTE FORTRAN IV Compiler reads source input from a source file. The 
compiler writes the resultant object program on a standard binary output file 
in a format acceptable to the Relocating Loader. Exact detail for specifying 
these files is found in the Reference Manuals for the Operating System being 
used (see the Documentation Maps on pages iv and v) . 



RTE FORTRAN IV is a multi-pass compiler. A pass is defined as a processing 
cycle of the source program. In the initial pass, the source program is 
processed, a symbol table is constructed, and a set of intermediate machine 
code is generated. During subsequent passes, the compiler searches the symbol 
table for object code references, completes translation of the intermediate 
object code on the disc and produces a relocatable binary object program. It 
produces the object program as directed at invocation. Source and object 
listings may be produced, if specified in the FORTRAN IV control statement 
(see Appendix B) , or the Operating System program invocation command (see 
Appendix J) . 



xiii 



COMPILER ENVIRONMENT 



The RTE FORTRAN IV Compiler is available in the HP 92001 RTE-II, HP 92060 
RTE-III, HP 92067 RTE-IV, and HP 92064 RTE-M Operating Systems. The hardware 
configurations required for compiling and executing RTE FORTRAN IV programs 
under control of these systems are described in the appropriate system 
docximentation . 

The libraries of relocatable subroutines available to RTE FORTRAN IV are 
described in the HP DOS/RTE Relocatable Library Reference Manual. See the 
dociamentation maps on p. IV or V for the part nximber of this manual. 
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SECTION I 

THE FORM OF A FORTRAN IV PROGRAM 



The RTE FORTRAN IV Compiler accepts as input a source program written accord- 
ing to the specifications contained in this manual. Each source program is 
constructed from characters grouped into lines and statements. Appendix F 
shows a sample program listing. The elements used to construct a source 
language program are defined in the following text. 

FORTRAN IV SOURCE PROGRAMS 

The following terms define FORTRAN IV source programs : 

Executable Program: A program that can be used as a self-contained computing 

procedure. An executable program consists of precisely 
one main program and its subprograms and segments*, if 
any. 

Main Program: A set of statements and comments not containing a 

FUNCTION, SUBROUTINE, or BLOCK DATA Statement, beginning 
with a program statement and ending with an END statement. 

Subprogram: A set of statements and comments containing a FUNCTION, 

SUBROUTINE, or a BLOCK DATA statement. When defined by 
FORTRAN statements and headed by a FUNCTION statement, it 
is called a function subprogram. When defined by FORTRAN 
statements and headed by a SUBROUTINE statement, it is 
called a subroutine subprogram. When defined by FORTRAN 
statements and headed by a BLOCK DATA statement, it is 
called a block data subprogram. Subprograms also can be 
written in HP FORTRAN, HP ALGOL, or HP Assembler 
languages. 



Segmented programs may not be supported in some operating systems . 

1-1 



Program Unit: 



A main program or a subprogram. 



Segments * : An overlayable set of statements beginning with a 

PROGRAM statement which specifies Type 5, and ending 
with an END statement. 



FORTRAN IV CHARACTER SET 



A source language program is written using the following character set. 



Letters ; 



The twenty-six letters A through Z. 



Digits : 



The ten digits 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. Unless 
specified otherwise, a string of digits is interpreted 
in the decimal base number system when a number system 
base interpretation is appropriate. 



Alphanumeric 
Character: 



A letter or a digit. 



Blank Character: 



Has no meaning and may be used to improve the appearance 
of a program with the following exceptions : 



a. A continuation line cannot contain a blank in 
column 6. 

b. A blank character is valid and significant in 
Hollerith data strings. 

c. In numeric input conversions, leading blanks are 
not significant, but embedded blanks are converted 
to zeros. A field of all blanks is converted to 
all zeros. 



*Segmented programs may not be supported in some operating systems. 
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Special Characters: Used for special program functions. They are: 



SYMBOL REPRESENTING 
blank 

= equals 
+ plus 
minus 

* asterisk 

/ slash 

( left parenthesis 

) right parenthesis 

, comma 

decimal point 
$ currency symbol 

" quote - string delimiter 



SOURCE PROGRAM LINES 

Source program lines are written according to the following rules. 

Lines: A line is a string of 72 characters. All charac- 

ters must be from the HP ASCII character set (see 
Appendix I) . The character positions in a line are 
called columns, and are consecutively numbered 
1, 2, 3, 72. The number indicates the 

sequential position of a character in the line, 
starting at the left and proceeding to the right. 

Comment Line: A comment line is denoted by a "C" or by an "*" in column 1. 

A comment line is not a statement and does not effect the 
program in any way. A comment line beginning with "*" will 
be listed in mixed listings. 

EXTENSIONS TO THE STANDARD 

Comment lines may appear at any point in a program, including between lines 
of a continued statement. Comment lines beginning with a "C" will not be 
included in mixed listings. 
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Initial Line: An initial line is a line that is neither a comment line 

nor an end line, and that contains the digit 0 or the 
character blank in column 6. Columns 1 through 5 may 
contain a statement label or the character blank. 



Debug Line: The letter D in column 1 of a line designates that line 

as a debug line. Compilation of debug lines is optional. 
Unless specifically directed to compile debug lines, the 
RTE FORTRAN IV compiler will treat debug lines the same 
as comment lines. 



To cause compilation of debug lines, specify the charac- 
ter D as a parameter either in the FTN4 control statement 
(see Appendix B) or as an FTN4 invocation command option 
(see Appendix J) . In either case, when the character D is 
specified, the debug lines are compiled. 



Continuation Line: A continuation line is a line that contains any characters 

other than the digit 0 or the character blank in column 6, 
and does not contain the character C or $ in column 1. 
Any other character may be placed in column 1. Any 
characters may be placed in columns 2 through 5 . Except 
for comment lines, a continuation line may follow only an 
initial line or another continuation line. 



In all cases, a statement may be continued 
indefinitely (extension of the standard) . 



SOURCE PROGRAM STATEMENTS AND LABELS 



Source program statements and statement labels are written according to the 
following rules. 

Statements: A statement consists of an initial line optionally- 

followed by continuation lines. The statement is 
written in columns 7 through 72 of the lines. The order 
of the characters in the statement is columns 7 through 
72 of the first continuation line, columns 7 through 72 
of the next continuation line, etc. 

Symbolic Names: A symbolic name consists of from one to six alpha- 

numeric characters, the first of which must be 
alphabetic. 



External names (i.e., SUBROUTINE, FUNCTION, COMMON labels, and Main pro- 
gram names are shortened automatically to five characters by deletion of 
the fifth character. For example, the name PROGOl becomes PROGl. 



ORDER OF STATEMENTS IN A SOURCE PROGRAM 



The following diagram shows the source program statement ordering requirements 
for RTE FORTRAN IV main programs and subprograms . Statement types that must 
appear in a specific sequence are separated by the horizontal lines. For 
example, the PROGRAM statement must precede FORMAT statements, while Specifi- 
cation statements must precede DATA statements, and so forth. Statement types 
that may be interspersed with higher level statements are separated by the 
Vertical lines. For example. Arithmetic statement function definitions and 
Executable statements may be interspersed with DATA statements, and so forth. 
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EMA Statement 




PROGRAM, FUNCTION, SUBROUTINE, or BLOCK DATA Statement 






Implicit Statements 


Comment 




Specification Statements 


Lines 










FORMAT 




Arithmetic Statement 




Statements 


DATA 
Statements 


Function Definitions 
(See Note 3) 






(See Notes 1 
and 2) 








Executable Statements 
(See Note 3) 


END Statement 



NOTES: 1. Items in the DATA statement list are initialized at loading 
and not at every entrance to a program or subprogram. 

2. Compile time is shortened if all DATA statements immediately 
follow the last specification statement (with no intervening 
arithmetic statement function definitions) . 

3. Arithmetic statement function definitions and executable 
statements are not allowed in block data subprograms. 
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SECTION II 

DATA, CONSTANTS, VARIABLES AND ARRAYS 



There are six types of data in FORTRAN IV: 

INTEGER 
REAL 

DOUBLE PRECISION 
COMPLEX 
LOGICAL 
HOLLERITH 

Each data type has a specific format in main memory and a unique mathema- 
tical significance and representation. 



IDENTIFYING DATA TYPES 



A symbolic name, called a data name, is used to reference or otherwise 
identify data of any type. The following rules are used when identifying 
data: 

a. Data is named when it is identified, but not necessarily made 
available. 

b. Data is defined when it has a value assigned to it. 

c. Data is referenced when the current defined value of the data 
is made available during the execution of the statement that 
contains the data reference. 



Data Type Association 

The data name used to identify data carries the data type association, 
subject to the following restrictions: 

a. A data item keeps the same data type throughout the program 
unit. 
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b. An explicit type specification overrides both the IMPLICIT specif icatior. 
(see section 4) and the default specification. 



Establishing Data Names 

There are different ways of establishing a data name for a data type, depend- 
ing upon the type of data and how the data is used. 

The foirm of a string representing a constant defines both the value and the 
type of the data. This definition is a function of how data is stored in 
main memory. The type of a constant is implicit in its name. 

A data name that identifies a variable or an array may have its data type 
specified in a Type-specification. (See Section IV, "Specification Statements.") 
In the absence of an explicit declaration in a Type-specification, the data type 
is implied by the first character of the data name. The default type specifica- 
tions are as follows: 

I, J, K, L, M, or N = integer type data 
any other letter = real type data 

This implied type specification may be changed using the IMPLICIT statement 

(see section IV) . 

Using Data Names 

Data names are used to identify 
VARIABLES 

AKRAYS, or ARRAY ELEMENTS 
FUNCTIONS (See Section IX.) 
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WRITING CONSTANTS. VARIABLES AND ARRAYS 



The following pages describe how to write constants, variables and arrays 
in FORTRAN IV. See Appendix A "Formats of Data in Core Memory," for 
a description of how each data type is stored in main memory. 
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INTEGER CONSTANT 



PURPOSE: An integer constant is written as a string of digits interpreted 
as a decimal number. 



FORMAT: 

+n 
n 



n = a decimal nimiber with a range of -32,768 to 32,767 



COMMENTS: An integer constant is signed when it is written immediately 

following a + or - sign. If it is unsigned, an integer constant 
is assumed to be positive. 

EXAMPLES: 

-32768 

32767 

0 
-12 

329 
+5557 
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REAL CONSTANT 



PURPOSE: A real constant is written as a string of decimal digits con- 
taining an integer part, a decimal point, a decimal fraction 
and an ejcponent, in that order. 



FORMAT: 






+m . n Ex 


m = 


an integer constant 




a decimal point 


n = 


a decimal constant representing a fraction 


Ex = 


= the character E followed by the ejcponent, a signed 




or xmsigned integer 



COMMENTS: The decimal exponent is a multiplier (applied to the constant 
written immediately before it) that is equal to the niamber 
10, raised to the power indicated by the integer following the 
E. 



Either m or n (but not both) may be omitted; and either the 
decimal point or the exponent (but not both) may be omitted 
from a real constant. 

EXAMPLES: 

1.29 
.00123 
-901., 
256.177E2 



0. 18E+2 
2E-3 

1. E+15 
-256.177E-2 
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DOUBLE PRECISION CONSTANT 



PURPOSE: A double precision constant is written as a string of decimal 
digits containing an integer part, a decimal point, a decimal 
fraction and an exponent, in that order. 



FORMAT: 






+m . n Dx 


m = 


an integer constant 




a decimal point 


n = 


a decimal constant representing a fraction 


Dx = 


the character D followed by the exponent, a signed or 




unsigned integer 



COMMENTS: The decimal exponent is a multiplier (applied to the constant 
written immediately before it) that is equal to the number 10, 
raised to the power indicated by the integer following the D. 

Either m or n (but not both) can be omitted. A decimal point 
must separate m and n when both are specified. When m is 
present, both the decimal point cuid n can be omitted. 



EXAMPLES: 

1.29D0 
.0123D-1 
256.17702D02 
-256.17702D-2 
2D- 3 
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COMPLEX CONSTANT 



PURPOSE: A complex constant is composed of a real part and an imaginary 
part, and is written as an ordered pair of real constants, sep- 
arated by a comma and enclosed in parentheses. 



FORMAT: 



(m^ , m^) 



m^ and m^ are real constants , signed or unsigned 



COMMENTS: The first real constant is the real part; the second, the 
imaginaiy part. 



EXAMPLES: 

(1.29, 256.177E-2) 
(-901., 0.) 
(-.123E+01, -12.3E-4) 
(0., 0.) 
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LOGICAL CONSTANT 



PURPOSE: A logical constant is a truth value, either true or false. 



FORMAT: 






.TRUE. 




.FALSE. 



COMMENTS: The periods must be used as shown. 
EXAMPLES: 

ITRUE = .TRUE. 

When the above instruction is executed in an RTE Fortran IV 
program, the internal representation of logical true will be 
assigned to the variable ITRUE. 
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HOLLERITH CONSTANT 



PURPOSE: A Hollerith constant is written as an integer constant followed 
by the letter H, followed by any ASCII character except 
carriage return. 



FORMAT: 



nHx 



n = an integer constant 

H = the Hollerith descriptor, which is the character H 
X = one to n alphanumeric characters 

COMMENTS: The character immediately following the H is placed in the 
left half of the computer word used to store the constant. 
The right half of the word contains the next character and 
so on. If n is odd, the last word will have a blank in its 
right half. 

Hollerith constants are typed as follows: 

n = 1 or 2 integer 
3 or 4 real 

5 or 6 double precision 
7 or 8 complex 
n > 8 legal only as a simple parameter in a CALL 

statement or a function reference, or in 

FORMAT statements. 



EXAMPLES: 



1H@ 
IHA 
2H A 

8HABCDEFGH 



2HBB 
2H$$ 
2H12 

lOHCALL STMT. 
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OCTAL CONSTANT 



PURPOSE: An octal constant is written as a string of from one to six 

octal digits terminating with a B octal descriptor. An octal 
constant is an implied integer constant. 



FORMAT: 



+n.n„n^n .n_n^B 
- 1 2 3 4 5 6 



n, to n^ = octal digits 
1 6 

B = the octal descriptor, the character B 



COMMENTS: if an octal constant has more than six digits or if the 

leading digit in a six-digit constant is greater than one, 
an error diagnostic occurs. 



Integers n^ up to n^ may be omitted if they equal 0. The 



EXAMPLES: 



octal constant may carry a sign. 



2 IB 
+00B 
OB 

177777B 
-170 5B 



NOTE: The B suffix to indicate octal is an extension of the standard. 
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SIMPLE VARIABLE 



PURPOSE: 



Is the symbolic name of a single value. 



FORMAT: 



One to six alphanumeric characters , the first of 
which must be a letter.- 



COMMENTS: If the variable has a first character of I, J, K, L, MorN, 
it is implicitly typed as an integer variable. All other 
first letters imply that the variable is real. 

Implicit typing may be overridden for individual symbolic 

names by declaring them in a Type-specification. (See Section IV. ) 



EXAMPLES: 



Integer 

1125 
JMAX 
MREAL 
K 



Real 

A125 
HMAX 
REAL 
X 



2-11 



ARRAY 



An array is an ordered set of data of one, two or three dimensions. An array 
is identified by a synibolic name called the array name. The size and number 
of dimensions of an array mxist be defined in a DIMENSION, COMMON or TYPE- 
statement. 

ARRAY ELEMENT 

An array element is a member of the array data set. The array element is 
identified by a subscript immediately following the array name. 

An array element may be defined and referenced. 
SUBSCRIPT EXPRESSIONS 

A subscript expression may be any arithmetic expression allowed in FORTRAN IV. 
If the expression is of a data type other than integer, it is converted to in- 
teger before being used as a subscript. It must evaluate to an integer between 
1 and 32767 inclusive. 

In a program unit any appearance of a symbolic name that identifies an array 
must be immediately followed by a subscript, except in the following cases: 

a. In the list of an input/output statement 

b. In a list of dummy argxjments 

c. In the list of actual arguments in a function or subroutine 
reference 

d. In a COMMON statement 

e. In a TYPE- statement 

f. In a DATA statement 
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SUBSCRIPT 



A subscript is written as a parenthesized list of subscript expressions. 
Each subscript expression is separated by a comma from its successor, if 
there is a successor. 

The number of sxabscript expressions must be less than or equal to the num- 
ber of dimensions declared for the array name in a DIMENSION, COMMON or 
TYPE- statement. The value of a subscript is defined in Table 2-1, below. 
The value refers to the number of array elements (stored in column order) 
inclusively between the base entry and the one represented by the subscript. 



TABLE 2-1 
THE VALUE OF AN ARRAY SUBSCRIPT 
(IN AN ARRAY) 



ARRAY 
DIMENSION (S) 


SUBSCRIPT 
DECLARATOR 


SUBSCRIPT 


SUBSCRIPT 
VALUE 


♦MINIMUM 
SUBSCRIPT 
VALUE 


♦MAXIMUM 
SUBSCRIPT 
VALUE 


1 


(A) 


(a) 


a 


1 


A 


2 


(A,B) 


(a,b) 


a+A* (b-1) 


1 


A*B 


3 


(A,B,C) 


(a,b,c) 


a+A* (b-1) 






*Refer to warning on page 


2-14, 


+A*B* (c-1) 


1 


A*B*C 



Usage of an unsubscripted array name always denotes the first element of 
that array, except in an I/O statement or a DATA statement, where the 
entire array is referenced. 



DEFINING VARIABLES AND ARRAY ELEMENTS 



Variables and array elements become initially defined (before execution 
begins) if, and only if, their names are associated in a DATA statement 
with a constant of the same data type as the variable or array in question. 
Any entity not so defined is said to be "undefined" at the time the first 
executable statement in a main program is executed. 
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SUBSCRIPTED VARIABLE 



PURPOSE: Refers to a particular element of an array of the same symbolic 
name as that of the subscripted variable. 



FORMAT: 


s ( a. / a 1 • • , , 5. ) 
12 n 


s = 


the symbolic name of the array 


a = 


expression (s) which determine the values of the 
svibscript (s) of the subscripted variable 


n = 


1, 2, or 3 



COMMENTS: Subscripted variables must have their sxibscript bounds specified 
in a COMMON, DIMENSION, or TYPE- statement prior to their first 
appearance in an executable statement or in a DATA statement. 

A subscript may be any arithmetic expression. If non-integer, the 
subscript is evaluated and converted to integer (by truncating) 
before being used as a subscript. 

A subscripted variable is named and typed according to the same 
rules as a simple variable. 



WARNING: No check is made by the compiler to verify that 
array subscript values fall within declared DI- 
MENSION bounds. Unpredictable results occur if 
references are made to dimensioned variables 
outside of the declared bounds of the array. 
Thus, array subscripts may not be less than 
one or greater than the declared array size. 



EXAMPLES: 

A(3,5,2) MAX (I, J) 

1(10) MIN (I-J, (I-J)*K/A,4) 

ARRAY (2,5) 



2-14 



SECTION III 
EXPRESSIONS 



An expression is a constant, variable or function reference (see Section IX) , 
or combination of these, separated by operators, commas or parentheses. 

There are three types of expressions: arithmetic, logical and relational. 



An arithmetic expression, formed with operators and elements, defines a 
numerical value. Both the expression and its elements identify integer, 
real, double precision or complex values. 

Arithmetic Operators 

The arithmetic operators are: 

Symbol Mathematic Function Example 



ARITHMETIC EXPRESSIONS 



** 



exponentiation 



A**B 



/ 



division 



A/B 



* 



multiplication 

svibtraction (or negative value) 
addition (or positive value) 



A*B 



A-B or -A 



+ 



A+B or +A 



Arithmetic Elements 



The arithmetic elements are defined as: 



PRIMARY: 



An arithmetic expression enclosed in paren- 
theses, a constant, a variable reference, an 



array element reference or a function reference. 
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FACTOR: 



A primary, or a construct of the form: 
PRIMARY**PRIMARY 



TERM: 



A factor, or a construct of one of the 
forms: 

TERM/FACTOR 
TERM*TERM 



SIGNED TERM: 



A term, immediately preceded by + or - 



SIMPLE ARITHMETIC EXPRESSION: A term, or two simple arithmetic express- 
ions separated by + or -. 



ARITHMETIC EXPRESSION: 



A simple arithmetic expression or a signed 
term or either of the preceding forms 
immediately followed by + or -, followed by 
a simple arithmetic expression. 



Combining Arithmetic Elements 

When adding, subtracting, dividing or multiplying, the compiler combines 



arithmetic 


elements according 


to the rules 


shown in Table 3-1, 








TABLE 3-1 








RESULTS: COMBINING ARITHMETIC 


ELEMENTS (+,-,*,/) 




FIRST 










ELEMENT 




SECOND ELEMENT TYPE 




TYPE 


INTEGER 


REAL 


DOUBLE PRECISION 


COMPLEX 


INTEGER 


INTEGER 


REAL 


DOUBLE PRECISION 


COMPLEX 


REAL 


REAL 


REAL 


DOUBLE PRECISION 


COMPLEX 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE PRECISION 


COMPLEX 


PRECISION 


PRECISION 


PRECISION 






COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 
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CAUTION: Real or Integer Division by zero produces the following results: 

: INTEGER/0 = ABS| INTEGER | 
e.g. 

K = -123/0 = 123 
: REAL/0 = LARGEST REAL NUMBER 
e.g. 

A = 18.4/0. = .17014E+39 

The overflow bit is set but does not affect the use of the result in succeeding 
FORTRAN statements. 

NO DIAGNOSTIC WARNING OR ERROR MESSAGE IS DISPLAYED. 
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Exponentiation of Arithmetic Elements 

Arithmetic elements can be exponentiated according to the rules shown in 
Table 3-2. 



TABLE 3-2 





RESULTS: EXPONENTIATION OF ARITHMETIC ELEMENTS (**) 










EXPONENT TYPE 






BASE TYPE 


INTEGER 


REAL 


DOUBLE PRECISION 


COMPLEX 


INTEGER 


INTEGER 


NOT ALLOWED 


NOT ALLOWED 


NOT 


ALLOWED 


REAL 


REAL 


REAL 


DOUBLE PRECISION 


NOT 


ALLOWED 


DOUBLE 


DOUBLE 


DOUBLE 








PRECISION 


PRECISION 


PRECISION 


DOUBLE PRECISION 


NOT 


ALLOWED 


COMPLEX 


COMPLEX 


NOT ALLOWED 


NOT ALLOWED 


NOT 


ALLOWED 



Evaluating Expressions 



The compiler evaluates expressions from left to right, according to the 
following rules : 

PRECEDENCE FROM HIGHEST TO LOWEST: 

' ( ) parentheses, for grouping expressions 
** exponentiation 

*,/ multiplication and division (whichever occurs 
first) 
unary minus 

+,- addition and subtraction (whichever occurs first) 



relational 
logical 



SEQUENCE : 



arithmetic 



.LT. , .LE. , .EQ. , .NE. , .GT. , .GE. (whichever occurs first) 

.NOT. 

.AND. 

.OR. 

Evaluation begins with the subexpression most deeply 
nested within parentheses. 

Within parentheses, subexpressions are evaluated from 
left to right in the order of precedence above. 
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Fiinction references are evaluated from left to right as 
they occur. 

No factor is evaluated that requires a negative valued primary to be raised 
to a real or double precision exponent. No factor is evaluated that requires 
raising a zero valued primary to a zero valued exponent. No element is 
evaluated if its value has not been mathematically defined. Integer overflow 
resulting from arithmetic operations is not detected at execution time. 



LOGICAL EXPRESSIONS 

A logical expression is a rule for computing a logical value. It is formed 
with logical operators and logical elements and has the value true or false. 



Logical Operators 

The logical operators and the logical result of their use in an expression 
are: 

Symbol Mathematic Function Example 

.OR. LOGICAL DISJUNCTION A .OR. B 

.AND. LOGICAL CONJUNCTION A .AND. B 

.NOT. LOGICAL NEGATION .NOT. A 

Logical Expression LOGICAL RESULT IS 

(logical elements A and B) TRUE FALSE 

A .OR. B If either A or If both A and B 

B is true are false 

A .AND. B If both A and B If either A or B 

are true is false 

.NOT. A If A is false If A is true 
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Logical Elements 



The logical elements are defined as: 



LOGICAL PRIMARY: 



A logical expression enclosed in parentheses, a 



relational expression, a logical constant, a 
logical variable reference, a logical array element 



reference, or a logical function reference. 



LOGICAL FACTOR: 



A logical primary, or .NOT. followed by a logical 



primary. 



LOGICAL TERM: 



A logical factor or a construct of the form: 



LOGICAL TERM .AND. LOGICAL TERM 



LOGICAL EXPRESSION: A logical term or a construct of the form: 

LOGICAL EXPRESSION .OR. LOGICAL EXPRESSION 

RELATIONAL EXPRESSIONS 

A relational expression is a rule for computing a conditional logical ex- 
pression. It consists of two arithmetic expressions separated by a re- 
lational operator. The relation has the value true or false as the relation 
is true or false. The operands of a relational operator must be of type 
integer, real, or double precision, except that the operators .EQ. and .NE. 
may have operands of type complex. 
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Relational Operators 

The relational operators are: 

Symbol Mathematic Fvmction Example 

.LT. less than A .LT. B 

,LE. less than or equal to A .LE. B 



SECTION IV 
SPECIFICATION STATEMENTS 



Specification statements are non-executable statements that specify variables, 
arrays and other storage information to the compiler. There are six specifi- 
cation statements in FORTRAN IV. It is recommended, but not required, that 
specification statements be used in the following order: 

IMPLICIT 
TYPE- 
DIMENSION 
COMMON 
EQUIVALENCE 
EXTERNAL 
DATA 

Refer to section I on Order of Statements in a Source Program for a complete 
explanation of the ordering requirements. 

ARRAY DECLARATOR 

DIMENSION, COMMON and TYPE- statements use array declarators to specify the 
arrays used in a program unit. An array declarator indicates the symbolic 
name of the array, the ntmiber of dimensions (one, two or three) , and the 
size of each array dimension. An array declarator has the following format: 

V (i) 

V = the symbolic name of the array 

i = one, two or three declarator subscripts (for one, two or 
three dimensional arrays). Each subscript must be an 
integer constant or a dummy integer variable name. (See 
Section IX. ) 

If a two or a three dimensional array is being specified, each declarator 
sxabscript is separated from its successor by a comma. 

The values given for the declarator subscripts indicate the maximum value 
that the subscripts can attain in any array element name. The minimum 
value is always one; the maximum value is 32767. 
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EXTERNAL 



PURPOSE: To declare external fiinction or subroutine names that will be 
referenced in the program unit. 



FORMAT: 



EXTERNAL V^, V^, 



V = any external function or subroutine name 



COMMENTS: if an external function or subroutine name is used as an argu- 
ment to another external function or subroutine, it must appear 
in an EXTERNAL statement in the program unit in which it is so 
used. 

NOTE: EXTERNAL names are limited to five characters in 

length. Names of six characters are shortened auto- 
matically to five by deletion of the fifth character . 



EXAMPLES: 



EXTERNAL SIN, IS, FUN 
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TYPE-SPECIFICATION 



PURPOSE: To declare the data type of variable names, array names, function 
names or array declarators used in a program unit. 



FORMAT: 




INTEGER V 




REAL j 




DOUBLE PRECISION > 


V , V , . . . , V 

1 Z n 


COMPLEX 1 


LOGICAL 




V = a variable, array. 


function, or array declarator. 



COMMENTS: Subroutine names cannot appear in a Type-specification statement. 

The same symbolic name may not appear in a second Type-specifica- 
tion statement with a different type. 

A Type-specification statement can be used to override or confirm 
the implicit typing of integer or real data and must be used to 
declare the data type for double precision, complex or logical data. 

A symbolic name in a Type-specification statement informs the 
compiler that it is of the specified data type for all 
appearances in the program unit. 

EXAMPLES: 

INTEGER I, A, ARRAY (3,5,2) 
REAL MAX, UNREAL, R(5) 

DOUBLE PRECISION D, D0UBLE(2), DARRAY(3,3) 
COMPLEX C, CPLEX, CARRAY (2 , 3,4) , CAREA 
LOGICAL T, FALSE, L(4), J 



DIMENSION 



PURPOSE: To specify the symbolic names and dimension (s) of arrays used 
in a program unit. 



FORMAT: 




DIMENSION v^(i^), '^2^^2^ ' ' 


. ., V (i ) 

n n 


v(i) = an array declarator 





COMMENTS; Every array in a program unit must be specified in a DIMENSION, 
TYPE or COMMON statement. 



WARNING: No check is made by the compiler to verify that 
array subscript values fall within declared DI- 
MENSION bounds. Unpredictable results occur if 
references are made to dimensioned variable 
outside of the declared bounds of the array. 
Thus, array subscripts may not be less than 
one or greater than the declared array size. 



EXAMPLES • 

DIMENSION MATRIX (3, 3, 3) 
DIMENSION 1(4), A (3, 2) 
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COMMON 



PURPOSE: To provide a means for sharing a common block of memory between 
a main program and its subprograms, or between subprograms. A 
block of common memory labeled by a name refers to block common. 
A block without a label refers to blank common. 



FORMAT: 

COMMON/blockname /a , . . . , a ... /blockname /a , . . . , a 
1 1 n n 1 n 

COMMON// a , . . . , a 
1 n 

COMMON a , . . . , a 
1 n 

blockname = a symbolic common block name delimited with slash 
characters . 

// = a blank common block. 

a = a variable or array name, or an array declarator. 



COMMENTS: A symbolic name in a COMMON statement must be a variable or 

array name, or an array declarator. Once declared in a COMMON 
statement, a name cannot be declared in another COMMON statement 
within the same program unit. 

The size of a common block is the sum of the storage required 
for the elements introduced through COMMON and EQUIVALENCE state- 
ments in a program unit. Common entities are strung together in 
the order in which they are declared. 

A blank common block is declared by specifying a null block name 
(//) . If a blank common block is declared as the first block in a 
COMMON statement, the slashes can be omitted. 
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COMMENTS: Blank common is available to every module of a program. Each 
(cont. ) 

module must completely describe all entries in any common block 
that it references. In multiprogramming systems, blank common 
and/or block common may be available to more than one program. 

By using named common blocks , the program may group together 
similar data constructs and set up the programs common area so 
that only the data of interest to a given module need be 
declared. 

Named common blocks, except EMA common, must be described in 
a BLOCK DATA subprogram. Furthermore, the required BLOCK DATA 
subprogram may initialize named common blocks while blank 
common blocks cannot be initialized. 

EXAMPLES: 

COMMON I,CAREA(2,3) , J (3) /HELLO/W,X (2 , 5) ,Z/BYE/A 

COMMON/HELLO/KK (10) //Q , P 

I, CAREA, and J are in blank common. W, X, and Z are 
in a common block named HELLO. A is in a common block 
named BYE. KK follows Z in a common block named HELLO. 
Q and P follow J in blank common. 

For an example of HP implementation of named common, 
see Appendix F. 
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EXTENDED MEMORY AREA (EMA) DIRECTIVE 

PURPOSE: To provide a means for the storage and manipulation of large 
amounts of data, up to the total amount of available physical 
memory. Available in RTE-IV only. 



FORMAT: 

$EMA (blockname ,mseg) 
where: 

$ The dollar sign ($) must appear in column 1. 

blockname is the symbolic name of a block common area to 

be further defined in one or more COMMON statements. 

mseg is the size in pages of the RTE MSEC. If 0 or not 
specified, MSEG is the default size determined at 
load time (default MSEG = maximum logical address 
space - program size-1) . For more information on 
MSEG refer to the RTE-IV Programmer's Reference 
Manual. The EMA directive is an extension to the 
ANSI standard. 



COMMENTS: The EMA common is a memory access method that allows very quick 
referencing and manipulation of large amounts of data. The size 
of the EMA may be as large as all of available physical memory. 
Refer to the RTE-IV Programmer's Reference Manual. 

The EMA directive must be the first non-comment statement in the 
module. The common blockname must not be initialized and the 
EMA directive is not allowed in a BLOCK DATA subprogram. Only 
one EMA directive per module is allowed, and must appear in 
each module that references in EMA variable. All variables 
specified in the common block will go into the EMA. 
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COMMENTS : An EMA variable is referenced within a main program like any 
(cont.) other variable except when being passed to other subroutines or 
functions. When calling sxabroutines which do not expect EMA 
parameters, e.g. EXEC, the user must take care to pass EMA 
variables "by value". Call by value is indicated by enclosing the 
variable in an extra layer of parentheses, e.g. F((x)) or by 
passing the variable as part of an arithmetic expression, e.g. 
F(x+0.). The arguments of functions listed in Table G-2, Appendix G, 



NOTES ON USAGE OF EMA 



While any variable may be declared to be in EMA, it is recommended that the 
user restrict EMA usage to those arrays which require a large area. Since 
references to EMA variables take longer than references to local variables, 
this policy will speed the execution of programs. 



EXAMPLE PROGRAM ILLUSTRATING THE USE OF EMA 



FTN4,L 
$EMA(XYZ,3) 

PROGRAM TEST 

COMMON /XYZ/A(100,200) ,0(3000,80) ,E (200,300) 
EQUIVALENCE (A (99 , 1000) ,B) 

B=SIN(A(J,K) ) 
C CALL BY VALUE TO UFUN 

D=UFUN( (A(J,K) ) ) 

C PASS SUBSCRIPTS FOR EMA ARRAYS TO SUBROUTINE ADDl 

C SUBR ADDl HAS EMA ARRAYS DEFINED IN NAMED COMMON 

CALL ADDl (J,K) 

C PASS EMA ARRAY E BY REFERENCE WITH ITS 

C DIMENSIONS TO SUBROUTINE ADD2 

CALL ADD2 (E, 200, 300, SUM) 

END 

FUNCTION UFUN(X) 
C SQUARE THE NUMBER 

UFUN = X * X 
RETURN 
END 

$EMA(XYZ,3) 

SUBROUTINE ADD1(M,N) 
C M AND N ARE SUBSCRIPT PARAMETERS 

COMMON /XYZ/A(100,200) ,0(3000,80) ,E (200, 300) 
C INCREMENT AN ELEMENT IN THE EMA ARRAY A 

A(M,N) = A(M,N) + 1 

RETURN 
END 
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SUBROUTINE ADD2 (EPRIME,ME,NE,SUM) 
C EPRIME IS AN EMA ARRAY PASSED BY REFERENCE AND SUM IS NON-EMA 

C NOTE THAT SUBROUTINE ADD2 DOES NOT REQUIRE A 

C $EMA DIRECTIVE OR ANY EMA NAMED COMMON BLOCKS 

EMA EPRIME (ME, NE) 

J=l 

DO 100 1=1, NE 

EPRIME (J, I) = EPRIME (J, I) + 2 
100 CONTINUE 

RETURN 
END 



Arrays A, C, and E are in EMA common because they are in the block common 
named XYZ, which is declared in the EMA directive. B is in EMA it is 
equivalenced to A. EPRIME is a formal parameter declared to be in EMA by 
the EMA statement. 

The call to SIN may use standard notation because SIN is in Table G-2. The 
call to UFUN must use "call by value" because its parameter is not declared 
in an EMA statement. This is indicated by enclosing its argviment in an extra 
layer of parentheses as shown. An element in array A is incremented in 
Subroutine ADDl, which has declared the EMA common block. The array E is 
passed by reference to Subroutine ADD2 , which has declared the formal 
parameter, EPRIME, to be in EMA. 
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EXTENDED MEMORY AREA (EMA) STATEMENT 



PURPOSE: To declare that formal parameters are located in EMA and have 
been passed by reference. Available in RTE-IV only. 



FORMAT: 




EMA 


vl , v2 , . . . , vn 


V = 


a variable, array or array declarator which is a 




formal parameter. 


The 


EMA statement is an extension to the ANSI standard. 



COMMENTS: since variables in EMA are accessed by a different mechanism 

than those not in EMA, it is necessary to specify which formal 
parameters are EMA parameters to the compiler. The default type 
for formal parameters is non-EMA. See the EMA directive for a 
discussion of call by value and call by reference. 



WARNING: The addressing mode (EMA or non-EMA) of actual and formal 

parameters must match. If they do not, an incorrect address 
will be used. The effect will be similar to accessing an array 
with a subscript of unknown value. Therefore, do not pass a 
non-EMA variable to a subroutine expecting an EMA argument or 
vice versa. 



EXAMPLE: ema earray ( 100, looo ) ,evar,iarr( 5000) 
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EQUIVALENCE 



PURPOSE: Allows the sharing of memory locations by two or more 
entities. 



FORMAT: 






EQUIVALENCE (k^) , (.^^2^ ' ' ' * ' ^^n^ 


k = 


a list of two or more variable names, array names or 




array element names with integer constant siibscripts. 



COMMENTS: A symbolic name which appears in an EQUIVALENCE statement must be 
a variable, array, or array element name. 

Equivalence can be established between different data types, but 
the EQUIVALENCE statement cannot be used to equate two or more 
entities mathematically. 

CAUTION: RTE FORTRAN IV does not use the same amount of 
storage for INTEGER and REAL variables (see 
Appendix A) . Therefore, mixed variable types 
should be equivalenced with caution. 

The EQUIVALENCE statement can associate a variable in COMMON with 
one or more variables not in COMMON, or may associate two or more 
variables none of which are in COMMON. 

No equivalence grouping is allowed between two entities in COMMON. 
Dummy parameters may not appear in EQUIVALENCE statements. A variable 
not in COMMON, when equivalenced to a variable in COMMON, becomes a 
part of the COMMON area. A COMMON area, however, only can be lengthened 
by equivalence groupings. If an equivalence grouping causes an entity 
to be relocated before the first entity in COMMON, an error diagnostic 
occurs . 

EXAMPLES: 

See the following page for examples of correct equivalence 
grouping. 
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The following statements will result in the allocation of space for variables 

in COMMON and non-COMMON areas as shown. Double precision is assumed to be 4-word. 



INTEGER I, A, ARRAY 
REAL R(4) 
COMPLEX CAREA 

LOGICAL L 

DOUBLE PRECISION DOUBLE (2), DARRAY 
DIMENSION DARRAY (2) 
DIMENSION I(4),A(3,2), L(4) 
COMMON CAREA (2,2), I , DOUBLE 

EQUIVALENCE (CAREA (2 , 1 ) , R) , (DOUBLE (2 ) , DARRAY ) 
EQUIVALENCE (A (3,2), L(4) ) 

Results in this COMMON and 
equivalenced area of 32 words 
(28 words in original COMMON, 
4 added by EQUIVALENCE) . 

Results in this non-COMMON 
equivalenced area of six words. 



A(l,l) 




A(2,l) 


A(3,l) 


L(l) 


A(l,2) 


L(2) 


A(2,2) 


L(3) 


A(3,2) 


L(4) 




CAREA 
(1,1) 




CAREA 
(2,1) 


- R(l) 


- R(2) 


CAREA 
(1,2) 


- R(3) 


- R(4) 


CAREA 
(2,2) 




Id) 


1(2) 


I (3) 


1(4) 


DOUBLE - 
(1) 


DOUBLE - 
(2) 


- DARRAY 
(1) 




- DARRAY 
(2) 
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DATA 



PURPOSE: To define the initial values of variables, single array elements, 
portions of arrays or entire arrays . 



FORMAT: 

DATA k /d /, k /d /, ... k /d / 
112 2 n n 

k = lists of names of variables, array elements or arrays 
d = lists of constants (optionally signed) which can be 
immediately preceded by an integer constant (followed 
by an asterisk) identifying the number of times the 
constant is to be repeated. 
/ = separators , used to bound each constant list 



COMMENTS: Mixed mode assignments are not permitted. The DATA statement may 
only assign values that agree in mode to their identifiers. 
Hollerith data can be assigned to any variable provided that the 
data fits into that variables allocated storage space. Hollerith 
data is padded with blanks on the right to fill the allocated 
storage space. 

If you use a DATA statement within a serially reusable program, 
the data may not be the same each time the program is reused 
because the DATA statement elements are not initialized upon 
re-entry into the program. 
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If a list contains more than one entry, the entries must be 
separated by commas. An initially-defined variable, array element 
or array may not be in a common area, nor can it be a dummy 
argument, except that in a block data subprogram, all entries 
must be in a named common block. 

DATA statements must come after all specification statements in 
the program. 



NOTE: Unsubscripted array names are allowed in DATA statements. 
If the array has n elements, the next n constants from 
the list are used to initialize the array (in column 
order) . If the remainder of the constant list has m<n 
elements in it, then only the first m elements of the 
array are initialized. 



EXAMPLES: 

1) DIMENSION IA(2,3) ,IB(3) 

DATA IA/l,2,3,4,5,6/,X/1.9E-l/,IB/3*2/ 

The above data statement will assign values to the variables 
as follows: 

IA(1,1)=1 IA(2,1)=2 IA(1,2)=3 IA(2,2)=4 IA(1,3)=5 IA(2,3)=6 
X=.19 

IB{1)=2 IB(2)=2 IB(3)=2 



COMMENTS: 
(cont. ) 



2) DATA FALSE, ICHAR/. FALSE. ,2HXY/,DBLE/-2.39D-01/ 

The above data statement will assign values to the variables 
as follows: 

FALSE = < internal representation of boolean false> 
ICHAR = <hollerith character string XY> 
DBLE = -.239 represented as a double precision number. 
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IMPLICIT Statement 



PURPOSE: To change or confirm the default implicit integer and real 
typing of variables. 



FORMAT : 

IMPLICIT type(a[,a] ) [, type (a I, a] )] 

where : 

type is one of INTEGER, REAL, DOUBLE PRECISION, COMPLEX, 
or LOGICAL 

a is either a single letter or a range of single letters 

in alphabeticl order. A range is denoted by the first 
and last letters of the range separated by a minus sign; 
e.g., 32-32- A range will specify the default type of 
all identifiers beginning with letters in the interval 
ai to a^t inclusive. 



COMMENTS: An implicit statement specifies a type for all variables, arrays, 
and functions (except intrinsic functions) that begin with any 
letter that appears in the specification, either as a single 
letter or included in a range of letters. IMPLICIT statements 
do not change the type of any intrinsic functions. An IMPLICIT 
statement applies only to the program unit that contains it. 

Type specification by an IMPLICIT statement may be overridden 
or confirmed for any particular variable, array, or function 
name by the appearance of that name in a type- statement. An 
explicit type specification in a FUNCTION statement overrides an 
IMPLICIT statement for the name of that function subprogram. 

Within the specification statements of a program unit, IMPLICIT 
statements must precede all other specification statements. A 
program unit may contain any number of IMPLICIT statements. 

The same letter must not appear as a single letter, or be 
included in a range of letters, more than once in all of the 
IMPLICIT statements in a program unit. 



4-16 



SECTION V 
ASSIGNMENT STATEMENTS 



Assignment statements are executable statements that assign values to vari- 
ables and array elements. There are three types of assignment statements: 

Arithmetic assignment statements 
Logical assignment statements 
ASSIGN TO statement 



ARITHMETIC ASSIGNMENT STATEMENT 

PURPOSE: Causes the value represented by an arithmetic expression to be 
assigned to a variable. 



FORMAT: 






V = e 


V = 


a variable name or an array element name of any data 




type except logical 


e = 


any arithmetic expression 



COMMENTS: v is altered according to the rules expressed in Table 5-1, 
A variable must have a value assigned to it before it can be 
referenced. 

EXAMPLES: 

K = 2HAB 

A(I,J,K)=SIN(X) *2.5-A(2,l,3) 
1=1 
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Table 5-1. 
RULES FOR ASSIGNING e to v 



If V Type Is 


And e Type Is 


The Assignment Rule Is 


Integer 


Integer 


Assign 


Integer 


Real 


Fix & Assign 


Integer 


Double Precision 


Fix & Assign 


Integer 


Complex 


Fix Real Part & Assign 


Real 


Integer 


r xoa^ ot /issxgn 


Real 


Real 


Assign 


Real 


Double Precision 


DP Evaluate & Real Assign 


Real 


Complex 


Assign Real Part 








Double Precision 


Real 


DP Evaluate & Assign 


Double Precision 


Double Precision 


Assign 


Double Precision 


Complex 


DP Evaluate Real Part & Assign 


Complex 


Integer 


\ Convert & Assign 


Complex 


Real 


> as Real Part With 


Complex 


Double Precision 


* Imaginary Part = 0 


Complex 


Complex 


Assign 



NOTES : 

1. Assign means transmit the resulting value, without change, to 
the entity. 

2. Real Assign means transmit to the entity as much precision of the 
most significant part of the resulting value as a real datum can 
contain . 

3. DP Evaluate means evaluate the expression then DP Float. 

4. Fix means trxincate any fractional part of the result and transform 
that value to the form of an integer datum. 

5. Float means transform the value to the form of a real datum. 

6. DP Float means transform the value to the form of a double pre- 
cision datum, retaining in the process as much of the precision 
of the value as a double precision datum can contain. 
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LOGICAL ASSIGNMENT STATEMENT 



PURPOSE: Causes the value represented by the logical expression to be as- 
signed to a simple or subscripted variable. 



FORMAT: 










V = e 


V = 


a logical 


variable name or a logical array element 




name 




e = 


a logical 


expression 



COMMENTS: a variable must have a value assigned to it before it can be 
refe renced. 



EXAMPLES: 

T = .TRUE. 
FALSE = .FALSE. 
T = A.LT.B 
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ASSIGN TO STATEMENT 



PURPOSE: Initializes an INTEGER Variable to a statement label. 



FORMAT: 






ASSIGN k TO i 


k = 


a statement label 


i = 


an integer variable name 



COMMENTS: After the assign to statement is executed, any subsequent exe- 
cution of an assigned GO TO statement using the integer variable 
causes the statement identified by the assigned statement label 
to be executed next. The integer variable may also be used in a 

READ or WRITE statement as the format identifier. 



STANDARD extension. The INTEGER variable may be used in a CALL 
statement or function reference and the dummy assigned its value 
may be used in an assigned GO TO, READ, or WRITE statement. 



Once mentioned in an ASSIGN TO statement, an integer variable may 
not be referenced in any statement other than an assigned GO TO 
statement or as a format reference in a READ or WRITE statement 
until it has been redefined. 

EXAMPLES: 

ASSIGN 1234 TO ILABEL 

GO TO ILABEL, (100,1234,200) (or, GO TO ILABEL) 

1234 1=1 
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SECTION VI 
CONTROL STATEMENTS 



Normally, a program begins with the execution of the first executable state- 
ment in the program. When the execution of that statement is completed, the 
next sequential executable statement is executed. This process continues 
until the program ends . 

A subprogram, if referenced, starts with its first executable statement, 
then executes the next sequential executable statement, and so on, imtil it 
returns control to the program statement which referenced it. 

Control statements are executable statements that alter the normal flow of 
a program or subprogram. There are twelve control statements in FORTRAN 
IV. 

GO TO (Unconditional) 

GO TO (Assigned) 

GO TO (Computed) 

IF (Arithmetic) 

IF (Logical) 

CALL 

RETURN 

CONTINUE 

PAUSE 

STOP 

DO 

END 
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GO TO 



UNCONDITIONAL 



PURPOSE: Causes the statement identified by the statement label to be 
executed next. 



FORMAT: 

GO TO k 

k = a statement label 



COMMENTS: The program continues to execute from the statement identified 
by k. 



EXAMPLE: 

GO TO 1234 
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GO TO 



ASSIGNED 



PURPOSE: Causes the statement identified by the current value of an in- 
teger variable reference to be executed next. 



FORMAT: 










GO 


TO i, (k^, k^, . 


••' ^n^ 




GO 


TO i 




i = 


an integer variable 


reference 




k = 


a statement label 







COMMENTS: The current value of i must have been assigned by a previous 
execution of an ASSIGN TO statement. 

The compiler does not check if i contains one of the statement 
labels in the list. The list is for programmer's documentation 

purposes only. The values k . k„, k are checked to ensure 

12 n 

that they are valid statement numbers. 

EXAMPLE: 

ASSIGN 1234 TO ILABEL 

GO TO ILABEL, (1234,200,100) (or, GO TO ILABEL) 
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GO TO 

COMPUTED 



PURPOSE: Causes the statement identified by an indexed label from a 
list of labels to be executed next. 



FORMAT: 



GO TO (k^ , k„, . . . , k ) , e 
12 n 



k = a statement label 

e = an arithmetic expression 



COMMENTS: The expression is evaluated, and converted to integer, if 
necessary. 

If the expression value is less than one, statement k^ is 

executed. If the expression value is greater than n, 

statement k is executed. If 1 < e < n, statement k is 
n - - e 

executed. 



EXAMPLE: 

GO TO (100,200,300) , k 

100 CONTINUE (if k < 1) 
200 CONTINUE (if k = 2) 
300 CONTINUE (if k > 3) 
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IF 



ARITHMETIC 



PURPOSE: Causes one of two or three statements to be executed next, depend- 
ing upon the value of an arithmetic expression. 



FORMAT: 



IF (e) k^, k^, k^ 
IF (e) k^, k^ 



e = an arithmetic expression of type integer, real or 

doiable precision, 
k = a statement label 



COMMENTS: When the statement contains three statement labels, the state- 
ment identified by the label k^, k^, or k^ is executed next if 
the value of e is less than zero, equal to zero, or greater than 
zero, respectively. 



When the statement contains two statement labels , the statement 
identified by k^ is executed next when the value of e is less 
than zero; k^ is executed next when the value of e is equal to 
or greater than zero. 



EXAMPLES: 



IF (A - B) 100, 200, 300 
IF (SIN{X) - A*B) 100,200 
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IF 

LOGICAL 



PURPOSE: Causes a statement to be executed next if a logical expression is 
true, or causes one of two statements to be executed, depending 
upon the value of the logical expression. 



FORMAT: 








IF (e) 


s 




IF (e) 


^1' ^2 


s = 


an executable statement 


(except a DO or a logical IF) 


e = 


a logical expression 




k = 


a statement label 





COMMENTS: if the logical expression is true (first format), statement s 
is executed. If s does not transfer control elsewhere, execu- 
tion then continues with the statement following the IF. If 
e is false, the statement s is not executed, but the next 
sequential statement after the IF is executed. 



If the logical expression is true (second format) , statement 
Vi^ is executed. If the logical expression is false, state- 
ment is executed. 

Refer to the sections on logical expressions and relational 
expressions for a further explanation. Note particularly the 
caution on the use of the relational operators .LT., .LE., 
.GT., and ,GE.. 

EXAMPLES: if (a .eq. b) a = 1.0 

IF (SIN(X) .LE. (A-B)) 100,200 
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CALL 



PURPOSE: Causes a sxabroutine to be executed. 



FORMAT: 


CALL s 






CALL s (a^, a^/ . 




s = 


the name of a subroutine 




a = 


an actual argument 





COMMENTS: when the subroutine returns control to the main program, exe- 



cution resumes at the statement following the CALL. 

An actual argument is a constant, a variable name, an array 
name, an array element name, expression or subprogram name. 
Actual arguments in a CALL statement must agree in order, 
type and number with the corresponding dummy parameters in 
a subroutine. (See Section IX.) 

EMA variables appearing as an actual argument must be passed 
using "call by value". Refer to the section on the EMA 
statement for more information. 

EXAMPLES: 

CALL MATRX SUBROUTINE MATRX 

• • 

CALL SUBR (I, J) RETURN 

END 

SUBROUTINE SUBR (I, J) 

RETURN 
END 
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RETURN 



PURPOSE Causes control to return to the current calling program unit, if 
it occurs in a function stibprogram or a si±iroutine. Causes the 
program to stop if it occurs in a main program. 



FORMAT: 






RETURN 



COMMENTS: when the RETURN statement occurs in a subroutine, control returns 
to the first executable statement following the CALL statement 
that referenced the subroutine. 

When the RETURN statement appears in a function sxibprogram, con- 
trol returns to the referencing statement. The value of the 
function is made available in the expression which referenced 
the function subprogram. 

The END Statement of a function subprogram or a subroutine is 
also interpreted as a RETURN statement, provided there is a path 
to the END statement. 

EXAMPLES: 



CALL MATRX 



SUBROUTINE MATRX 



I = MIX(L,M)/A*B RETURN 

END 

INTEGER FUNCTION MIX (I, J) 

RETURN 

MIX = I + J 

RETURN 

END 
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CONTINUE 



PURPOSE: Causes continuation of the program's normal execution sequence. 



FORMAT: 






CONTINUE 



COMMENTS: The continue statement can be used as the terminal statement in a 
DO loop. 



If used elsewhere, the CONTINUE statement acts as a diammy state- 
ment which causes no action on the execution of a program. 

EXAMPLE: 

DO 5 I = 1, 5 



5 CONTINUE 
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STOP 



PURPOSE: Cavises the program to stop executing. 



FORMAT: 






STOP n 




STOP 


n = 


an octal digit string of one to four characters 



COMMENTS: when this statement is executed, STOP is printed on the teleprinter 
output vinit. If n is given, its value is also printed, after the 
word STOP. 



EXAMPLES: 

STOP 1234 
STOP 
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PAUSE 



PURPOSE: Causes the program to stop executing. Execution is resiamable in 
sequence . 



FORMAT: 






PAUSE 




PAUSE n 


n = 


an octal digit string of one to four characters 



COMMENTS: When this statement is executed, PAUSE is printed on the tele- 
printer output unit. If n is given, its value is also printed, 
after the word PAUSE. 

The decision to resvune processing is not under program control. 
To restart, a system directive must be issued by the system 
operator. 



EXAMPLES: 

PAUSE 1234 
PAUSE 



6-11 



DO 



PURPOSE: To initiate and control the sequence of instructions in a pro- 
grammed loop. 



FORMAT : 


DO n [ , ] i = 


' ™2' "^3 






DO n [ , ] i = m^, 




n = 


the statement label of an 
the terminal statement) 


executable 


statement (called 


[,] = 


an optional comma 






i = 


a simple integer variable 


name (called the control variable) 


^1 = 


an arithmetic expression 


(called the 


initial parameter) 


™2 = 


an arithmetic expression 


(called the 


terminal parameter) 


^3 = 


an arithmetic expression 


(called the 


step-size parameter) 



COMMENTS : The terminal statement must physically follow and be in the 



same program unit as the DO statement. The terminal statement 
may not be any form of a GO TO, an arithmetic IF, a two-branch 
logical IF, a RETURN, STOP, PAUSE, DO or a logical IF statement 
containing any of these statements. 

The initial, terminal and step-size parameters can be any arith- 
metic expressions. However, if these expressions are not of 
type integer, they are converted to integer (by truncation) 
after they are evaluated. 

CAUTION: The maximum allowable difference between the initial 
parameter and the terminal parameter is 32,767 
(2^^-l). If more iterations are desired, two or more 
DO loops can be nested to achieve this (see Example d 
following) . 

If the step-size parameter is omitted (format 2) , a value of +1 
is implied for the step size. 

NOTE: The Step-size may be positive or negative , allowing 
either incrementing or decrementing to the terminal 
parameter value. 
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COMMENTS: The range of a DO statement is from (and including) the first 
(cont.) executable statement following the DO to (and including) the 
terminal statement of the DO. 

When the range of one DO statement contains another DO statement, 
the range of the contained DO must be a subset of the range of the 
containing DO. 

Succeeding executions of the DO loop do not cause re-evaluation of 
the initial, terminal or step-size parameters if they are expressions. 
Therefore, any changes made within the DO loop to the values of 
variables occurring in these expressions do not affect the control 
of the loop's execution. Only changes to the control variable 
itself or to step-size parameters (if they are unsigned simple 
integer variables) affect the loop's execution. 



NOTE: A DO Statement is executed at least once regardless 
of the relationship of the initial parameter to the 
terminal parameter. 



If a subprogram reference occurs in the range of a DO, the actions 
of that subprogram are considered to be temporarily within that 
range . 

When a statement terminates more than one DO loop, the label 
of that statement may be used only in a GO TO or arithmetic 
IF statement that occurs in the range of the most deeply nested 
DO that ends with that terminal statement. Other control flows 
can be achieved by having separate terminal statements for DO 
loops . 
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EXAMPLES: 



a) DO 51=1,5 b) DO 20 1=1,10,2 c) DO 20 1=1,10,2 

• • • 

• • • 

5 CONTINUE DO 20 J=l,5 DO 15 J=2,5 

20 CONTINUE 15 CONTINUE 

• 

d) DO 100 1=1,200 20 CONTINUE 

DO 50 J=l,250 

A{I,J)=A(I,J)+1 Array A declared to be in EMA, 

50 CONTINUE 
100 CONTINUE 

The following occurs when a DO statement is executed: 

a. The control variable is assigned the value represented by the 
initial parameter. The DO loop is executed at least once regard- 
less of the relationship of the initial parameter to the terminal 
parameter value . 

b. The range of the DO is executed. 

c. If control reaches the terminal statement, then after execution 
of the terminal statement, the control variable of the most re- 
cently executed DO statement associated with the terminal state- 
ment is modified by the value represented by the associated step- 
size parameter. 

d. If the value of the control variable (after modification by the 
step-size parameter) has not gone past the value represented by 
the associated terminal parameter, then the action described 
starting as step b. is repeated, with the understanding that the 
range is that of the DO whose control variable has been most re- 
cently modified. If the value of the control variable has gone 
past the value represented by its associated terminal parameter, 
then the DO is said to have been satisfied. 
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At this point, if there were one or more other DO statements 
referring to the terminal statement in question, the control 
variable of the next most recently executed DO statement is 
modified by the value represented by its associated step-size 
parameter and the action in step d. is repeated until all DO 
statements referring to the particular terminal statement are 
satisfied, at which time the first executable statement follow- 
ing the terminal statement is executed. 

Upon exiting from the range of a DO by the execution of a GO TO 
or an arithmetic IF statement (that is, by exiting other than by 
satisfying the DO) , the control variable of the DO is defined 
and is equal to the most recent value attained as defined in 
steps a. through e. 
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END 



PURPOSE: Indicates to the compiler that this is the last statement in a 
program unit. 



FORMAT: 






END 



COMMENTS: Every program unit must terminate with an END statement. 

The characters E, N and D (once each and in that order in 
columns 7 through 72) can be preceded by, interspersed with, 
or followed by blank characters; column 6 must contain a 
blank character. Columns 1 through 5 may contain either a 
statement label or blank characters. Undefined source program 
statement numbers are printed when the END statement is 
encountered. External names shortened from six characters 
to five characters are reported as well as any user supplied 
names that conflict with implicit library names. 



EXAMPLES: 



END 

......E_N_D 

.JOO.END 
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SECTION VII 
INPUT/OUTPUT STATEMENTS 



Input/output statements are executable statements which allow the transfer 

of data records to and from external files and memory, and the positioning 
and demarcation of external files. The FORTRAN IV input/output state- 
ments are: 

READ (Formatted Records) 

WRITE (Formatted Records) 

READ (Unformatted Records) 

WRITE (Unformatted Records) 

REWIND 

BACKSPACE 

ENDFILE 



NOTE: All external files must be sequential files. 



IDENTIFYING INPUT/OUTPUT UNITS 

An input or output unit is identified by a logical unit number assigned to 
it by the operating system. (See the RTE Operating System Reference Manuals 
for a description of logical units.) The logical unit reference may be an 
integer constant or an integer variable whose value identifies the unit. Any 
variable used to identify an input/output unit must be defined at the time 
of its use. 



IDENTIFYING ARRAY NAMES OR FORMAT STATEMENTS 

The format specifier for a record or records may be an array name or the 
statement label of a FORMAT statement (see Section VIII) . If the format 
specifier is an array name, the first part of the information contained in 
the array must constitute a valid FORMAT specification: a normal FORMAT 
statement less the statement number and the word "FORMAT." 

If the format specifier is a FORMAT statement label, the identified state- 
ment must appear in the same unit as the input or output statement. 
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INPUT/OUTPUT LISTS 



An input list specifies the names of the variables, arrays and array elements 
to which values are assigned on input. An output list specifies the refer- 
ences to variables, arrays, array elements and constants whose values are 
transmitted on output. Input and output lists have the same form, except 
that a constant is a permissable output list element. List elements consist 
of variable names, array names, array element names and constants (output 
only) , separated by commas. The order in which the elements appear in the 
list is the sequence of transmission. 

There are two types of input/output lists in FORTRAN IV: simple lists and 
DO- implied lists. 

Simple Lists 

A simple list, n, is a variable name, an array name, an array element name, 
a constant (output only) or two simple lists separated by a comma. It has 
the form: 

n 

n,n 

D0-Imp11ed Lists 

A DO-implied list contains a simple list followed by a comma and a DO-implied 
specification, all enclosed by parentheses. It has the form: 
(n, i = m^, m^, m^) 

where 
n = a simple list 

i = a control variable (a simple integer variable) 
m^ = the initial parameter (an integer arithmetic expression) 
m^ = the terminal parameter (an integer arithmetic expression) 
m^ = the step-size parameter (an integer arithmetic expression) 



The parameters m-[_, m2, and m3 may be any arithmetic expression. However, 
if these expressions are not Type-INTEGER, they are converted to Type- 
INTEGER by truncation following evaluation. Functions may be referenced 
only if they do not execute, or cause to be executed, any other READ or 
WRITE statements, or other I/O operations. 
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Data defined by the list elements is transmitted starting at the value of 
m^, in increments of m^, until m^ is exceeded. If is omitted, the step- 
size is assxjmed to be +1. 



The step-size parameter may be positive or negative, allowing incrementing 
or decrementing to the terminal parameter value. 

The elements of a DO-implied list are specified for each cycle of the 
implied DO loop. 



EXAMPLES: 

simple List DO-Implied List 

A,B,C ( (ARRAY(I,J) ,J=1,5) ,1=1,5) 

READ (5,10) A, B,C READ (5,10) ( (ARRAY (I, J) , J=l, 5 ) , 1=1, 5) 

Note: For output lists, signed or unsigned 
constants are permitted as list 
elements . 

FORMATTED AND UNFORMATTED RECORDS 



A formatted record consists of a string of the characters that are permissi- 
ble in Hollerith constants. The transfer of such a record requires that a 
format specification be referenced to supply the necessary positioning and 
conversion specifications. The number of records transferred by the exe- 
cution of a formatted READ or WRITE statement is dependent upon the list 
and referenced format specification. 

An vinformatted record consists of binary values. 
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READ 



FORMATTED 



PURPOSE: To read formatted records from an external device into main memory 
or to provide data conversion from ASCII data to numeric data. 

FORMAT: 

READ (u,f) k 
READ (u,*) k 
READ (u,f) 

u = an input unit 

f = an array name or a F0Ri4AT statement label or an integer 

variable defined in an ASSIGN statement (must not be in EMA) 
k = an input list 

* = specification for free-field input (no format statement) 

COMMENTS: The format statement or specification (in an array) can be any- 
where in the program unit. 

If free-field input is specified, the formatting is directed by 
special characters in the input records; a FORMAT statement or 
specification is not required. 

If data conversion is to be made, a call to the relocatable 
subroutine CODE must precede the READ instruction. 

The Fortran IV Formatter supports the transfer of data records 
containing a maximum of 132 characters within a formatted READ 
operation. In some systems the user may extend this size by 
supplying an alternate buffer. Refer to the explanation of the 
LGBUF subroutine in the DOS/RTE Relocatable Library Reference 
Manual . 



EXAMPLES: 

READ (5,100) (A(I), 1=1, 20) 
READ (5,200) A,L,X 
READ (5,*) (A(J), J=l, 10) 
READ (5, ARRAY) 

READ (5,100) ( (A(I, J) ,1=1,5) ,J=1,20) 
ASSIGN 100 to K 

READ (5,K) ( (A(I, J) ,1=1,5) , J=l,20) 

The following performs a data conversion of the ASCII buffer 
IN and stores the numeric equivalents in variables A,L,X: 

CALL CODE 

READ (IN, 200) A,L,X 

In this case any required statement labels must be on the 
CALL CODE statement and it must not be the terminal state- 
ment of a DO loop. Caution: IN should not be subscripted. 
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WRITE 



FORMATTED 



PURPOSE: To write formatted records from main memory to an external device 
or to provide data conversion from numeric data to ASCII data. 



FORMAT: 

WRITE (u,f) k 
WRITE (u,f) 

u = an output unit 

f = an array name or a FORMAT statement label or an integer 

variable defined in an ASSIGN statement (must not be in EMA) 
k = an output list 



COMMENTS: The format statement or specification (in an array) can be 
anywhere in the program unit. 

If data conversion is to be performed, a call to the reloca- 
table subroutine CODE must precede the WRITE instruction. 

The Fortran IV Formatter supports the transfer of data records 
containing a maximum of 132 characters within a formatted WRITE 
operation. In some systems the user may extend this size by 
supplying an alternate buffer. Refer to the explanation of the 
LGBUF subroutine in the DOS/RTE Relocatable Library Reference 
Manual. 

EXAMPLES: 

WRITE (2,200) A, L, X 
WRITE (2, ARRAY) 

The following performs a data conversion of variables A,L,X 
and stores the ASCII equivalents in buffer TU: 

CALL CODE 

WRITE (TU,200) A,L,X 

In this case any required statement labels must be on the 
CALL CODE statement and it must not be the terminal state- 
ment of a DO loop. Caution: TU should not be subscripted. 
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READ 

UNFORMATTED 



PURPOSE: To read one unformatted record from an external file. 



FORMAT: 






READ (u) k 




READ (u) 




u = an input unit 




k = an input list 



COMMENTS: The sequence of values required by the list may not exceed the 
sequence of values from the unformatted record. 

READ (u) causes a record to be skipped. 

The Fortran IV Formatter supports the transfer of data records 
containing a maximum of 60 words within an unformatted (binary) 
READ operation. In some systems the user may employ the LGBUF 
subroutine to extend this limit. Refer to the explanation of 
LGBUF in the DOS/RTE Relocatable Library Reference Manual- 

EXAMPLES: read (5) A, l, x 

READ (5) 
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WRITE 



UNFORMATTED 



PURPOSE: To write one unformatted record from main memory to an external 
file. 



FORMAT: 








WRITE (u) k 




u = an output 


unit 




k = an output 


list 



COMMENTS: This statement transfers the next binary record from main memory 
to unit u from the sequence of values represented by the list k. 

The Fortran IV Formatter supports the transfer of data records 
containing a maximum of 60 words within an unformatted (binary) 
WRITE operation. In some systems the user may employ the LGBUF 
subroutine to extend this limit. Refer to the explanation of 
LGBUF in the DOS/RTE Relocatable Library Reference Manual. 



EXAMPLES: write (2) a, l, x 
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REWIND, BACKSPACE, ENDFILE 



PURPOSE: These statements are used for magnetic tape files. REWIND is 
used to rewind a tape to the beginning of tape. BACKSPACE is 
used to backspace a tape file one record. ENDFILE is used to 
wtite an end-of-file record on a tape file. 



FORMAT: 






REWIND u 




BACKSPACE u 




ENDFILE u 




u = an input/output unit 



COMMENTS: if the magnetic tape unit is at beginning of tape when a REWIND 

or a BACKSPACE statement is executed, the statement has no effect. 



EXAMPLES: 

BACKSPACE 2 
ENDFILE I 
REWIND 5 
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FREE FIELD INPUT 



By following certain conventions in the preparation of his input data, a 
FORTRAN IV programmer can write programs without using an input FORMAT state- 
ment. The programmer uses special characters included within input data 
items to direct the formatting of records. 

Data records composed this way are called free field input records , and can 
be used for numeric input data only. Free field input is indicated in a 
fomatted READ statement by using an asterisk (*) instead of an array name 
or a FORMAT statement label. 



The special characters used to direct the formatting of free field input 
records are: 

space or , data item delimiters 

/ record terminator 

+ or - sign of item 

. E + - floating point niamber 

@ octal integer 

" . . . " comments 



Data Item Delimiters 

A space or a comma is used to delimit a contiguous string of numeric and 
special formatting characters (called a data item) , whose value corresponds 
to a list element. A data item must occur between two commas, a comma and 
a space or between two spaces. (A string of consecutive spaces is equiva- 
lent to one space.) Two consecutive commas indicate that no data item is 
supplied for the corresponding list element, i.e., the current value of the 
list element is unchanged. An initial comma causes the first list element 
to be skipped. 
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EXAMPLES: 

100 READ (5,*) I, J, 

Input data items: 
1720,1966,1980,1492 

Result: 
I = 1720 
J = 1966 
K = 1980 
L = 1492 



K, L 200 READ (5,*) I, J, K, L 

Input data items: 
, ,1794,2000 

Result: 
I = 1720 
J = 1966 
K = 1794 
L = 2000 



Record Terminator 

A slash within a recxard causes the next record to be read inunediately; the 
remainder of the current record is skipped. 



EXAMPLE: 

READ (5,*) I, J, K, L, M 

Input data items : 

987 , 654 , 321 , 123/DESCENDING 

456 

Result: 
I = 987 
J = 654 
K = 321 
L = 123 
M = 456 

NOTE: If the input list requires more than one 
external input record, a slash (/) is 
required to terminate each of the input 
records except the last one. 
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Sign of Data Item 



Data items may be signed. If they are not signed, they are assumed to be 
positive. 

Floating Point Number Data Item 

A floating point data item is represented in the same form as E-TYPE con- 
version of an external real ntunber on input. (See Section VIII.) If the 
decimal point is not present, it is assumed to follow the last digit of 
the number. 

Octal Data Item 

The symbol (§ is used to indicate an octal data item. List elements 
corresponding to the octal items must be type integer. 

EXAMPLE: 

READ (5,*) I, J, K 

Input Data Items: 
§177777, @0, @5555 

Result: 

I = 177777B 

J = 0 

K = 5555B 
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Comment Delimiters 



Quotation marks ("...") are used to bound comments; characters appearing 
between quotation marks are ignored. 

EXAMPLE: 

READ (5,*) I, J, K, L 

Input Data Items: 

123, 456, "ASCENDING"! 23, 456 

Result: 
I = 123 
J = 456 
K = 123 
L = 456 
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SECTION VIII 
THE FORMAT STATEMENT 

There are three ways a user can transfer data records to and from 
memory using READ and WRITE statements (described in Section VII) . 

a. As "free field input" when the input data itself contains 
special characters that direct the formatting of the records 
in memory. (See "Free Field Input.") 

b. As unformatted input or output records containing strings of 
binary values. (See "READ (Unformatted)" and "WRITE 
(Unformatted) .") 

c. As formatted input or output records. (See "READ (Formatted)" 
and "WRITE (Formatted).") 

When a formatted READ or WRITE statement is executed, the actual n\imber of 
records transferred depends upon: 

a. The elements of an input/output list (if present) , which 
specify the data items involved in the transfer, and 

b. A format specification for the list element (s), which 
defines the positioning and conversion codes used for the 
string of characters in a record. 

A format specification for a formatted READ or a formatted WRITE list 
element can be defined in either: 

a. A FORMAT statement, or 

b. An array, the first elements of which contain a valid format 
specification constructed according to the rules of a FORMAT 
statement (minus the FORMAT statement label and the "FORMAT" ) . 

The FORMAT statement and its components are described in the following 
pages . 
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FORMAT 



PURPOSE: The FORMAT statement is a non-executable statement that provides 
format control for data records being transferred to and from 
core memory by defining a format specification for each record. 



FORMAT: 

label FORMAT (q.t.z. t-Z_ ... t z t ,q,) 
1112 2 n n n+1^2 

label = a statement label. 

q = a series of slashes (optional) 

t = a field descriptor, or a group of field descriptors 
z = a field separator 



COMMENTS: A format statement must be labeled. 

When a formatted READ statement is executed, one record is read 
when format control is initiated; thereafter, additional records 
are read only as the format specif ication (s) demand. When a for- 
matted WRITE statement is executed, one record is written each 
time a format specification demands that a new record be started. 



EXAMPLES: 



READ (5,100)A,B,C 



WRITE (2, 200) A, L,X 



100 FORMAT (2F5.1, F6.2) 



200 FORMAT (F5.1, 110, F6.4) 



The components of a fomat specification (field separators, field descriptors, 
scale factor, repeat specification and conversion codes) are described in 
the following pages. 
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FIELD DESCRIPTOR 



PURPOSE: To provide the elements that define the type, magnitude and 
method of conversion and editing between input and output. 



FORMAT: one of the following conversion and editing codes: 



Integer data: 
Real data: 



Double pre- 
cision data: 

Logical data: 

Column 
positioning: 

Complex data: 



rlw 

srEw.d 
srFw.d 
srGw.d 



srDw. d 
rLw 



Octal data: 



Hollerith 
data: 



r@w 
rKw 
rOw 

rAw 
rRw 

wHh^h^ 



w 



rC'h^h^ 



rCh h 
1 a 



h ") 

w 

h ') 

w 



wX,Tw,TLw,TRw 
sEw . d , Ew . d 

w = a positive integer constant, representing the length of 
the field in the external character string. 

s = a scale factor designator (optional for real and double 
precision type conversions). 

r = a repeat specification, an optional positive integer 
constant indicating the number of times to repeat the 
succeeding field descriptor or group of field descriptors. 

h = any character in the FORTRAN character set. 

d = an non-negative integer constant representing the number 
of digits in the fractional part of the external charac- 
ter string (except for G-type conversion codes) . 

. = a decimal point. 

The characters F, E, G, I, @, K, O, L, A, R, H, ", ', T, TL, TR 
and X indicate the manner of conversion and editing between the 
internal and external character representations, and are called 
the conversion codes. 
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COMMENTS: For all field descriptors, except "h ... h " and 'h h ... h 

12 w la w 

the field length (w) must be specified, and must be greater than 
or equal to d. 



For field descriptors of the form w.d, the d must be specified, 
even if it is zero. 

A basic field descriptor is a field descriptor unmodified by the 
scale factor (s) or the repeat specification (r) . 

The internal representation of external fields corresponds to the 
internal representation of the corresponding data type constants . 

A numeric input field of all blanks is treated as the number zero. 

The use of a decimal point in the input data field overrides the 
d portion of a floating point conversion format. 

Negative numbers are output with a minus sign. 

If the output field is larger than that required by the datxam 
being written, the datum is right- justified in the output field. 

The number of characters produced by an output conversion must 
not exceed the field width (w) . If the characters produced do 
exceed the field width, the field is filled with the currency 
symbol $ . 



EXAMPLES: 



2110 



2(32 



E20.10 



2K2 



F5.1 



202 



G20.10 



2A2 



D10.2 



2R2 



ElO.4, ElO.4 



2HAB 



2X 



If 



ABCD 



II 
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REPEAT SPECIFICATION 



PURPOSE: Allows repetition of field descriptors through the use of a 
repeat count preceding the descriptor. The specified con- 
version is interpreted repetitively, up to the specified 
number of times. 



FORMAT: 

r (basic field descriptor) 
r = an integer constant, called the group repeat count. 



COMMENTS: All basic field descriptors may have group repeat counts, 
except these codes: wH or wX. 

A further grouping may be formed by enclosing field descriptors, 
field separators, or basic groups within parentheses, and by 
specifying a group repeat count for the group. The depth of 
this grouping is limited to the fourth level. 

The parentheses enclosing the format specification are not 
group delineating parentheses. 



EXAMPLES: 

2110 
6E14.6 

4(E1Q.4, ElO.4) 

3/ 
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I-TYPE CONVERSION 



INTEGER NUMBERS 



PURPOSE: Provides conversion between an internal integer ninnber and an 
external integer number. 



FORMAT: 



r I w 



r = a repeat specification (optional) 
w = length of external field 



COMMENTS: 



Input: The external input field contains a character string 

in the form of an integer constant or a signed integer 
constant. Blank characters are treated as zeros. 

Output: The external output field consists of blanks, if 
necessary, a minus (if the value of the internal 
datum is negative) , and the magnitude of the internal 
value converted to an integer constant, right- 
justified in the field. 

If the output field is too short, the field is 
filled with the currency symbol $. 



EXAMPLES: 



See the next page. 
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EXAMPLES: (Cont.) 

INPUT: 

External Field 
-.123 
12003 
.102 
3 

OUTPUT: 

Internal Number 
-1234 
+12345 
+12345 
+12345 



Format Internal Number 
15 -123 
15 12003 

14 102 
II 3 

Format External Field 

15 -1234 

15 12345 
14 $$$$ 

16 .12345 



8-7 



SCALE FACTOR 



PURPOSE: Provides a means of normalizing the number and exponent parts of 
real or double precision numbers specified in a FORMAT statement. 



FORMAT: 



nP 



n = an integer constant or a minus sign followed by 
an integer constant. 

P = the scale factor indicator, the character P 



COMMENTS: when format control is initialized, a scale factor of zero is 

established. Once a scale factor has been established, it applies 
to all subsequent real and double precision conversions until 
another scale factor is encountered. 

Input: When there is no exponent in the external field, the relationship 

between the externally represented number (E) and the internally 
represented number (I) is this: 

I = E * 10~" 

When there is an exponent in the external field, the scale factor 
has no effect. 

Output: For E- and D- type output, the basic real constant part (I) of the 
output quantity is multiplied by 10^^ and the exponent is reduced 
by n. For G-type output, the effect of the scale factor is 
suspended unless the magnitude of the datum to be converted is 
outside the range that permits effective F-type conversion. 



EXAMPLES: 



See the next page. 
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EXAMPLES: 



(Cont.) 

INPUT : 

External Field 
528.6 
.5286E+03 
528.6 



Format 
1PF10.3 
1PG10.3 
-2PD10.3 



Internal Nvunber 
52.86 
528.6 
52860. 



OUTPUT : 

Internal Number 
528.6 
.5286 
5. 286 
52.86 
-5286. 



Format 
1PF8.2 
2PE10.4 
-1PD10.4 
IPGIO. 3 
IPGIO . 3 



External Field 

.5286.00 

52.860E-02 

„ .0529D+02 

..52.9.... 

-5.286E+03 
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E-TYPE CONVERSION 

REAL NUMBERS 



PURPOSE: Provides conversion between an internal real number and an 
external floating-point niimber. 



FORMAT: 






s r E w. d 


s = 


a scale factor (optional) 


r = 


a repeat specification (optional) 


w = 


the length of the external field 




the decimal point 


d = 


the total nxamber of digits to the right of the 




decimal point in the external field. 



COMMENTS: 

Input: The external input field may contain an optional sign, 
followed by a string of digits optionally containing 
a decimal point, followed by an exponent, in one of 
the following forms: a signed integer constant; or 
E followed by an integer constant or a signed integer 
constant. 

Output: The external output field may contain a minus sign (or 
a blank, if the niimber is positive), a zero, a decimal 
point, the most significant rounded digits of the internal 
value, the letter E and a decimal exponent (which is 
signed if it is negative) . 

EXAMPLES: 

See the next page. 
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EXAMPLES : 



(Cont.) 

INPUT: 

External Field 



Format 



Internal Number 



123.456E6 E9.3 

.456E6 E6.5 

.456 E4.3 

123E6 E5.0 

123 E3.1 

E6 E9.3 

E9.3 

OUTPUT: 

Internal Number Format 

+12.34 E10.3 

-12.34 E10.3 

+12.34 E12.4 

-12.34 E12.4 

+12.34 E7.3 

+12.34 E5.1 



123456000 

456000 

.456 

123000000 

12.3 

0 

0 



External Field 
^^.12 3E+02 
.-.123E+02 

1234E+02 

..-.1234E+02 

.12E+02 

$$$$$ 



8-11 



F-TYPE CONVERSION 



REAL NUMBERS 



PURPOSE: Provides conversion between an internal real niamber and an 
external fixed-point number. 



FORMAT: 






s r F w . d 


s = 


a scale factor (optional) 


r = 


a repeat specification (optional) 


w = 


the length of the external field 




the decimal point 


d = 


the total number of digits to the right of the 




decimal point in the external field 



COMMENTS: 

Input: The external input field is the same as for E-TYPE 
conversion. 

Output: The external output field may contain blanks, a minus 

(if the internal value is negative) , a string of digits 
containing a decimal point (as modified by the scale 
factor) rounded to d fractional digits. 

EXAMPLES: 

See the next page. 
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EXAMPLES: (Cont.) 

INPUT: Same as in E-TYPE conversion, except "F" replaces "E" 
in the format specification. 



OUTPUT : 

Internal Nxjniber Format External Field 

+12.34 F10.3 12.340 

-12.34 F10.3 ...-12.340 

+12.34 F12.3 12.340 

-12.34 F12.3 ......12.340 

+12.34 F4.3 12.3 

+12345.12 F4.3 $$$$ 
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G-TYPE CONVERSION 

REAL NUMBERS 

PURPOSE: Provides conversion between an internal real number and an 
external floating-point or fixed-point number. 



FORMAT: 



s r G w 



s = a scale factor (optional) 
r = a repeat specification (optional) 
w = the length of the external field 
. = the decimal point 

d = the total number of digits to the right of the 
decimal point in the external field. 



COMMENTS: 
Input: 
Output : 



The external input field is the same as for E-TYPE conversion. 

The external output field depends upon the magnitude of the 
real data being converted, and follows these irules: 



Magnitude Of Data 

0.1 < N <1 

1 <N <10 



Equivalent Conversion 

F(w-4) .d,4X 
F(w-4) . (d-1) ,4X 



10^-2 < N < 10*^"^ 

lO*^"""" < N < 10*^ 
Otherwise 



F (w-4 ) . 1 , 4X 

F (w-4) .0,4X 
SEw.d 



EXAMPLES: 



See the next page. 
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EXAMPLES: (Cont.) 



INPUT: Same as for E-TYPE conversion, except 

that "G" replaces "E" in the format specification. 



OUTPUT : 
Format 

G10.3 



Internal Number 
.05234 
.5234 
52.34 
523.4 
5234. 



External Field 
...523E-01 

• /\ /s /s 

_.523E+04 
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D-TYPE CONVERSION 

DOUBLE PRECISION NUMBERS 



PURPOSE: Provides conversion between an internal double precision nvanber 
and an external floating-point niJinber. 



FORMAT: 


s r D w . d 


s = 


a scale factor (optional) 


r = 


a repeat specification (optional) 


w = 


the length of the external field 




the decimal point 


d = 


the total niimber of digits to the right of the 
decimal point in the external field. 



COMMENTS: 

Input: The external input field is the Seime as for E-TYPE 
conversion. 



Output: The external output field is the same as for E-TYPE 
conversion, except that the character D replaces the 
character E in the exponent. 



EXAMPLES: 

INPUT: Same as in E-TYPE conversion except "D" replaces "E." 
OUTPUT: Same as in E-TYPE conversion except "D" replaces "E." 
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COMPLEX CONVERSION 

COMPLEX NUMBERS 



PURPOSE: Provides conversion between an internal ordered pair of real 
numbers and an external complex number. 



FORMAT: 

A complex datum consists of a pair of separate real data. 
The total conversion is specified by two real field de- 
scriptors, interpreted successively. The first descriptor 
supplies the real part; the second, the imaginary part. 



COMMENTS: 

Input: Same as for any pair of real data. 

Output: Same as for any pair of real data. 

EXAMPLES: 

See E-, F- and G-TYPE conversions. 
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L-TYPE CONVERSION 

LOGICAL NUMBERS 



PURPOSE: Provides conversion between an external field representing a 
logical value and an internal logical datum. 



FORMAT: 



L w 



w = the length of the external field. 



COMMENTS: 



Input: The external input field consists of optional blanks 

followed by a T or an F followed by optional characters, 
representing the values true or false, respectively. 



Output: The external output field consists of w - 1 blanks 

followed by a T or an F as the value of the internal 
logical datxam is true or false, respectively. 



EXAMPLES: 



INPUT: 

External Field 
.TRUE 



Format 
L5 
L6 



Internal Number 
lOOOOOB 
0 



OUTPUT: 

Internal Number 

0 (or positive) 
(negative) 



Format 
L3 
LI 



External Field 
. .F 
T 
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@ -TYPE, K-TYPE AND 0-TYPE CONVERSIONS 

OCTAL NUMBERS 

PURPOSE : Provides conversion between an external octal number and an 
internal octal datim. 



FORMAT: 

r @ w 
r K w 
r 0 w 

r = a repeat specification (optional) 

w = the width of the external field in octal digits. 



COMMENTS: List elements must be of type integer. 

Input: If w > 6, up to six octal digits are stored; non-octal digits 

are ignored. If the value of the octal digits within the field 
is greater than 177777, results are unpredictable. If w < 6 or 
if less than six octal digits are encountered in the field, the 
number is right- justified with zeros to the left. 

Output: If w > 6, six octal digits are written right-justified in the 

field with blanks to the left. If w < 6, the w least significant 
octal digits are written. 



EXAMPLES: 



See the next page. 
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EXAMPLES: 



(Cont. ) 

INPUT : 

External Field 



Format 



Internal Number 



123456 
-123456 
2342342342 
, 396E-05 

OUTPUT : 

Internal Nximber 
99 
99 
-1 
32767 



@6 123456 

07 123456 

2K5 023423 and 042342 

2@4 000036 and 000005 

Format External Field 
K6 ...143 
02 43 
@8 ..177777 
@6 .77777 
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A-TYPE CONVERSION 

HOLLERITH INFORMATION 



PURPOSE: Allows a specified number of Hollerith characters to be read 
into, or written from, a specified list element. 



FORMAT: 






r A w 


r = 


a repeat specification, (optional) 


w = 


the length of the Hollerith character string. 



COMMENTS: input: Assume "n" to be the size of the list element in 

characters. If w >_ n, the rightmost n characters 
are taken from the external input field. If w <n, 
the characters appear left- justified in the list 
element, with w-n trailing blanks. 



Output: If w > n, the external output field consists of 
w-n blanks , followed by n characters from the 
internal representation. If w = <n, the characters 
in the left part of the list element is written. 

EXAMPLES: 

See the next page. 
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EXAMPLES: 



(Cont.) 

INPUT : 

External Field 
XYZ 

VWXYZ 
X 



Format 
A2 

A5 
Al 



Internal Value 



XY 



WXYZ (Real variable) 
X. 



OUTPUT : 

Internal Value Format External Field 

XY A2 XY 

WXYZ A6 ..WXYZ (Real variable) 

XY Al X 
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R-TYPE CONVERSION 



HOLLERITH INFORMATION 

PURPOSE: Allows a specified nvunber of Hollerith characters to be read 
into, or written from, a specified list element. 



FORMAT: 

r R w 

r = a repeat specification (optional) 

w = the length of the Hollerith character string. 

COMMENTS: Assume "n" to be the size of the list element in characters. The 
Rw descriptor is equivalent to the Aw descriptor, except that 
characters are right-justif ied in the word with leading binary 
zeros (on input); and on output, if w = 1, the characters in the 
right part of the list element is written. 

NOTE: The HP FORTRAN conversion Aw is replaced by the 
FORTRAN IV conversion Rw. 



EXAMPLES: See the next page. 



NOTE: The FORTRAN IV program can be modified at rim- time 
to interpret A as in HP FORTRAN if the user calls 
the OLDIO entry point: 

CALL OLDIO 

To change back to a FORTRAN IV A conversion, 
the user calls the NEWIO entry point: 

CALL NEWIO 
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EXAMPLES: (Cont.) 

INPUT: 

External Field 
XYZ 
VWXYZ 
X 

OUTPUT: 

Internal Value 
XY 

WXYZ 
XY 



Format Internal Value 

R2 XY 

R5 WXYZ (Real variable) 

Rl OX 

Format External Field 

R2 XY 

R6 ^^WXYZ (Real variable) 

Rl Y 
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wH EDITING 



HOLLERITH INFORMATION 



PURPOSE: Allows Hollerith information to be read into, or written from, 
the characters following the wH descriptor in a format specifi- 
cation. 



FORMAT: 






WH ... h^ 


w = 


a nonzero positive integer constant equal to the total 




number of h's 


h = 


any character in the HP ASCII character set. 


COMMENTS: 



Input: The characters in the external field (h^ to h^) replace 

the characters in the field specification. 

Output: The characters in the field specification are written 
to an output file. 



EXAMPLES: 



INPUT: 

External Field 



Format 



Resulting Internal Value 
of Formatted Item 



PACKARD 



7HHEWLETT 



7HPACKARD 



OUTPUT : 

Format External Field 

7HPACKARD PACKARD 
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. .' AND . ." EDITING 

HOLLERITH INFORMATION 



PURPOSE: Allows Hollerith information to be written from the characters 
enclosed by the quotation marks in a format specification. 



FORMAT: 








r "h,h^ . . . h " or r 'h,h^ . . 
12 w 12 


. h ' 

w 


h = 


any character in the FORTRAN character set, 
except the quote mark being used. 




r = 


a repeat count. 





COMMENTS: input: The number of characters within the quotation 

marks is skipped (equivalent to wX) . 



Output: Is equivalent to wH, with a repeat specification 
capability added. 



EXAMPLES: 

OUTPUT : 

Foinnat External Field 

"ABZ" ABZ 

II II 

2 '***• ****** 
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X,T,TL,TR-TYPE CONVERSION 

SKIP OR BLANKS 



PURPOSE: 



Sets the next column at which conversion will start. 



FORMAT: 

W X, Tw, TLw or TRw 
w = a positive integer constant 



COMMENTS: 



T: Move to coliimn w. 
TL: Move left w columns. 
X,TR: Move right w columns. 

On output, if the new position is to the right of the 
previous rightmost position, the intervening positions 
are blank- filled. 



EXAMPLES: 



14X 

2X 

T5 

TL3 

TR72 
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FIELD SEPARATOR 



PURPOSE: To separate 


each field descriptor, or group of field descriptors 


in a FORMAT 


statement. 


FORMAT: 






/ or , 



COMMENTS: a repeat count can be specified immediately preceding the slash 
(/) field separator. Each slash terminates a record. A series 
of slashes causes records to be skipped on input, or lines to 
be skipped on an output listing. 



EXAMPLES: 

READ (5,100)A,B 

100 FORMAT (F5.1,F7.3) 

READ (5,101)A,B 

101 FORMAT (F5.1/F7.3) 

READ (5,102)A,B 

102 FORMAT (//F5.1///F7. 3/)' 



WRITE (6,100)A,B 



WRITE (6,101)A,B 



WRITE (6,102)A,B 



Causes A and B to be read from one record. 

Causes A and B to be read from two 
consecutive records. 

Causes two records to be skipped, A to be 
read from the third record, two more 
records to be skipped, B to be read from 
the sixth record and one additional record 
to be skipped. 

Causes A and B to be printed on the same 
line. 

Causes A and B to be printed on two con- 
secutive lines. 

Causes two lines to be skipped, A to be 
printed on the third line, two more lines 
to be skipped, B to be printed on the 
sixth line and one more additional line 
to be skipped. 
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CARRIAGE CONTROL 



PURPOSE: To indicate the line spacing used when printing an output 
record on a line printer or a teleprinter. 



FORMAT: 






0 






1 
* 


as the first character 


in the record 


any other character 






= single space (print on 


every line) . 




0 = double space (print on 


every other line). 




1 = eject page 






* = suppress spacing (overprint current line) . 




any other character = single space (print on every 


line) . 



EXAMPLES: 



When these records are printed. . . 

100 FORMAT ("^PRINT ON EVERY LINE") 

120 FORMAT ("OPRINT ON EVERY OTHER LINE") 

140 FORMAT ("1") 

160 FORMAT ("*PRINT ON CURRENT LINE") 
180 FORMAT ("PRINT ON EVERY LINE") 
999 FORMAT (IHl, E16,8, 15) 



they look like this : 

PRINT ON EVERY LINE 

PRINT ON EVERY OTHER LINE 

(a page is ejected, then a 
line is skipped) 

(an overprint of current line) 

RINT ON EVERY LINE 

(a page is ejected, and a 

floating point number and an 

integer are then printed.) 



8-29 



SECTION IX 



PROGRAMS, FUNCTIONS, SUBROUTINES, AND 
BLOCK DATA SUBPROGRAMS 

PROGRAM STATEMENT 

PURPOSE: The PROGRAM statement names the main program and assigns parameters 
to it which are passed to the binary record and hence to the loader 
loading the relocatable object code. Similarly, a comment line can 
be passed to the loader. 



Refer to the FORTRAN IV Operations Section of this manual for 
additional information. 



FORMAT: 




PROGRAM 


name (p ,p , . . . ,p„) , comment 
12 8 


or. 




PROGRAM 


name fP^ ,p„ , . . . ,Po, comment 
12 o 


name = 


the name assigned to the program. 


Pi-Ps = 


up to eight integer parameters to be passed to the 




loader. See the appropriate operating system documenta- 




tion for the meaning attached to these parameters. If 




not specified, the defaults are: 




p^ = 3 disc-based, background 




(ignored by RTE-M) 




p^ = 99 priority 




p -p = 0 time values 
3 8 


comment = 


-- a comment line to be passed to the loader. All charac- 




ters after the comma (,) including blanks are passed. 




The comment is limited to 84 characters in length. 
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COMMENTS: in the first format shown above, one or more of the parameters may 
be omitted while still retaining the comment. In the second format, 
all parameters must be accounted for at least by the presence of a 
comma. Data after the program name is optional. The PROGRAM state- 
ment, if present, must be the first non-comment statement in the 
module. 

EXAMPLES: 

PROGRAM XY(),THIS PROGRAM HAS NO PARAMETERS 

PROGRAM XY, ,,,,,,, ,COMMAS MUST BE PRESENT TO FIND THIS COMMENT 
PROGRAM XY 

PROGRAM XY( 1,10) , HELP! 770105 



NOTE: All information following the program name 

within the PROGRAM statement is an extension 
of the standard . 
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An executable FORTRAN IV program consists of one main program with or with- 
out subprograms. Subprograms, which are either functions, subroutines, or 
block data subprograms, are sets of statements that may be written and 
compiled separately from the main program. 

A main program calls or references subprograms; siabprograms can call or 
reference other subprograms as long as the calls are non-recursive. That is, 
if subprogram A calls subprogram B, sxabprogram B may not call subprogram A. 
Furthermore, a program or subprogram may not call itself. A calling program 
is a main program or subprogram that refers to another subprogram. 

Main programs and subprograms communicate by means of arguments (parameters) . 
The arguments appearing in a call or a reference are called actual argu- 
ments . The corresponding parameters appearing within the called or refer- 
enced definition are called dunmy arguments . 



FUNCTIONS 

If the value of one quantity depends on the value of another quantity, 
then it is a function of that quantity. Quantities that determine the 
value of the function are called the actual arguments of the function. 

In FORTRAN IV, there are three types of functions (collectively called 
function procedures) ; they supply a value to be used at the point of refer- 
ence. 

a. A statement function is defined and referenced internally in 
a program unit. 

b. A FORTRAN IV library function is processor-defined external 

to the program unit that references it. The FORTRAN IV functions 
are stored on an external disc or tape file. 
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c. A function subprogram is user-defined external to the program 
unit that references it. The user coirpiles function subprograms, 
loads them with his calling program unit and references them the 
same way he references FORTRAN IV library functions. 



SUBROUTINES 

The RTE FORTRAN IV user can compile 
object program in an external file. 
SUBROUTINE statement and contains a 
subroutine by another program unit. 



a program unit and store the resultant 
If the program unit begins with a 
RETURN statement, it can be called as a 



Data Types For Functions and Subroutines 

All functions are identified by symbolic names. 

A symbolic name that identifies a statement function may have its data type 
declared in a Type-specification statement. In the absence of an explicit 
declaration in a Type-specification statement, the type is implied by the 
first character of the name, as follows: 

I, J, K, L, M, or N = integer type data 
any other character = real type data 

A symbolic name that identifies a FORTRAN IV function has a predefined data 
type associated with it, as explained in Table 9-1. 

A symbolic name that identifies a function subprogram may have its data type 
declared in the FUNCTION statement that begins the subprogram or in a sxib- 
sequent Type-specification statement. In the absence of an explicit declara- 
tion in the FUNCTION statement or a Type-specification statement, the data 
type is implied by the first character of the name, as for statement functions. 
A function subprogram which has been explicitly typed must also have its name 
identically typed (in a Type-specification statement) in each program unit 
which calls it. Otherwise, unpredictable results may occur. 

The symbolic names which identify subroutines are not associated with any 
data type. 
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DUMMY ARGUMENTS 



Dummy arguments are identified by symbolic name. They are used in functions 
and subroutines to identify variables, arrays, other subroutines or other 
fianction subprograms. The dummy arguments indicate the type, order and 
nvunber of the actual argiaments upon which the value of the function depends. 

When a variable or an array reference is specified by symbolic name, a dvimmy 
argument can be used, providing a value of the same type is made available 
through argviment association. 



STATEMENT FUNCTION 



PURPOSE: To define a user-specified function in a program unit for later 
reference in that program unit. 



FORMAT: 








f ( a , a , . . . , a ) = e 

12 n 




f = 


the user-specified function name, a 


symbolic name 


a = 


a distinct variable name (the dummy 


argimients of the 




function) 




e = 


an arithmetic or logical expression 





COMMENTS: The statement function is referenced by using its symbolic name, 
with an actual argument list, in an arithmetic or logical ex- 
pression. 

In a given program unit, all statement fxmction definitions must 
precede the first executable statement of the program unit and 
must follow any specification statements used in the program 
unit. 

The name of a statement function must not be a variable name or 
an array name in the same program unit. 



EXAMPLES: 

ISUM(I,J,K) = I+J+K 
// 

ROOTl(A,B,C) = (-B+SQRT(B**2-4.0*A*C) )/(2.0*A) 
L = ISUM(M**2,1,M-1) 

;/ 

R = ROOTl (X,Y,Z) 
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Defining Statement Functions 



The names of duinny argvonents may be identical to varicUsle names of the same 
type that appear elsewhere in the program vmit, since they bear no relation 
to the variable names. 

The dummy arguments must be simple variables; they represent the values 
passed to the statement function. These values are used in an expression 
to evaluate the user-specified function. Dummy argvmients cannot be used to 
represent array elements or function subprograms. 

Aside from the dvimmy argimients, the expression may contain only these values: 
Constants 

Variable references (both simple and subscripted) 
FORTRAN IV library function references 
External function references 

References to previously-defined statement functions in the 
same program 

Referencing Statement Functions 

When referenced, the symbolic name of the statement fvmction must be immedi- 
ately followed by an actual argument list. 

The actual arguments constituting the argument list must agree in order, 
number and type with the corresponding dvmtmy arguments . An actual argument 
in a statement function reference may be an expression of the same type as 
the corresponding dvraimy argument. 

When a statement function reference is executed, the actual argument values 
are associated with the corresponding dximmy arguments in the statement 
function definition and the expression is evaluated. Following this, the 
resultant value is made available to the expression that contained the state- 
ment function reference. 
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FORTRAN IV LIBRARY FUNCTION 



PURPOSE: To reference a processor-defined fxinction by specifying its sym- 
bolic name in an arithmetic or logical egression. The value is 
made available at the point of reference. 



FORMAT: 

An arithmetic or logical expression that 
contains the symbolic name of the FORTRAN 

IV function (together with an actual argument list) 

as a primary. 



COMMENTS: Table 9-1 contains the FORTRAN IV library functions available 
with the FORTRAN IV Compiler. The trigonometric functions 
listed in this table use radians measure. 

If the symbolic name for the function appears in a TYPE-specif ication 
statement which defines the name as a data type different from that 
specified for the function in Table 9-1, the function becomes 
"external". The user must then supply his own version of the 
FORTRAN IV library function. 



NOTE: Some "intrinsic" functions are accessed by FORTRAN IV 
using different names and/or calling sequences than 
for "external" functions. Care should be taken when 
using names of intrinsic functions for user-specified 
subroutines . 



EXAMPLES: 

X = SIN(Y) 
I = IFIX(X) 
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TABLE 9-1 
FORTRAN IV LIBRARY FUNCTIONS 



FORTRAN IV Function 


Definition 


Number of 
Arguments 


Symbolic 
Name 


TvDe 
Argument 


of: 
Function 


Absolute Value 


|a| 


1 


ABS 


Real 


Real+ 








lABS 


Integer 


Inte ger+ 








DABS 


Double 


Double 


Truncation 


Sign of a times 


1 


AINT 


Real 


Real+ 




largest integer 




INT 


Real 


Integer+ 




< lal 




IDINT 


Double 


Integer 


Remaindering* 


a^^ (mod a^) 


2 


AMOD 


Real 


Real* 








MOD 


Integer 


Integer* 


Choosing Largest Value 


Max (a^, a^, . . .) 


>2 


AMAX0 


Integer 


Real 








AMAXl 


Real 


Real 








MAX^ 


Integer 


Integer 








MAXl 


Real 


Integer 








DMAXl 


Double 


Double 


Choosing Smallest Value 


Min (a^ , a^ , . . . ) 


> 2 


AMIN0 


Integer 


Real 








AMINl 


Real 


Real 








MINj2 


Integer 


Integer 








MINI 


Real 


Integer 








DMINl 


Double 


Double 


Float 


Conversion from 


1 


FLOAT 


Integer 


Real+ 




integer to real 










Fix 


Conversion from 


1 


IFIX 


Real 


Integer+ 




real to integer 










Transfer of Sign 


Sign of a^ times 






iveaj. 


Real+ 




' 1 ' 




ISIGN 


Integer 


Intege r+ 








DSIGN 


Double 


Double 


Positive Difference 


a - Min (a , a ) 
X 1 z 


2 


DIM 


Real 


Real 








IDIM 


Integer 


Integer 


Obtain Most Significant 




1 


SNGL 


Doiable 


Real 


Part of Double Precision 












Argument 












Obtain Real Part of Complex 




1 


REAL 


Complex 


Real 


Argument 












Obtain Imaginary Part of 




1 


AIMAG 


Complex 


Real 


Complex Argument 












Express Single Precision 




1 


DELE 


Real 


Double 


Argument in Double 












Precision Form 
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TABLE 9-1 (cont. ) 
FORTRAN IV LIBRARY FUNCTIONS 



FORTRAN IV Function 


Definition 


1.<I LUIIUCI. I_( J. 

Arguements 


o y iLu^w ^ ji. ^ 

Name 


lype 
Argument 


of : 
Function 


Express IVo Real Arguments 




2 


CMPLX 


Real 


Complex 


in Complex Form 












Obtain Conjugate of a 




1 


CONJG 


Complex 


Complex 


Complex Argument 












Exponential 


a 

e 


1 


EXP 


Real 


Real+ 






1 


DEXP 


Double 


Double+ 






1 


CEXP 


Complex 


Complex+ 


Natural Logarithm 


log^ (a) 


1 


ALOG 


Real 


Real+ 






1 


DLOG 


Double 


Double+ 






1 


CLOG 


Complex 


Complex+ 


Common Logarithm 


log^Q{a) 


1 


ALOGT 
DLOGT 


Real 
Double 


Real+ 
Double+ 


Trigonometric Sine 


sin (a) 


1 


SIN 


Real 


Real+ 






1 


DSIN 


Double 


Double 






1 


CSIN 


Complex 


Complex+ 


Trigonometric Cosine 


cos (a) 


1 


COS 


Real 


Real+ 






1 


DCOS 


Double 


Double 






1 


CCOS 


Complex 


Complex+ 


Trigonometric Tangent 


tan (a) 


1 


TAN 
DTAN 


Real 
Double 


Real+ 
Double+ 


Hyperbolic Tangent 


tanh (a) 


1 


TANH 

pirn 71 Mu 


Real 
Douible 


ReaH- 
Double+ 


Square Root 


1 


SQRT 


Real 


Real+ 






1 


DSQRT 


Double 


Double+ 










Complex 


Comple x 




aL L. L cli 1 V u / 




AT AN 


Re al 


Real+ 






1 


DATAN 


Double 


Double 




arctan(a /a ) 
1 2 


2 
2 


AT AN 2 
DATN2 


Real 
Double 


Real 
Double 


Remaindering* 


a (mod a ) 
J. ^ 


2 


□MOD 


Double 


Double* 


Modulus 




1 


CABS 


Complex 


Real 


Logical Product 


i- j 


2 


lAND 


Integer 


Integer+ 


Logical Sum 


i+j 


2 


lOR 


Integer 


Integer+ 


Exclusive OR 




2 


IXOR 


Integer 


Integer 


Complement 


i 


1 


NOT 


Integer 


Integer+ 


Sense Switch Register 




1 


ISSW 


Integer 


Intege r+ 


Switch (n) 
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* The functions MOD, AMOD and DMOD are defined as a^-la^/a^la^ 
where [X] is the largest integer whose magnitude does not exceed 
the magnitude of X and whose sign is the same as the sign of X. 

+ These FORTRAN IV functions have different entry points when 
called by value and called by name. See the DOS/RTE Relocatable 
Library Reference Manual for a complete description of each 
entry point. 

Double precision functions have different entry points for 
3-word and 4-word doxible precision. The names used to call 
these fxanctions within a FORTRAN program are the same for 
both sizes of double precision. 
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FUNCTION SUBPROGRAM 



PURPOSE: To define a user-specified subprogram that supplies a function 
value when its symbolic name is used as a reference. 



FORMAT: 




t FUNCTION f (a,, a^, a ), 
12 n 


comment 


t = omitted, or one of the following data 


type identifiers 


REAL 




INTEGER 




DOUBLE PRECISION 




COMPLEX 




LOGICAL 




f = the symbolic name of the function 




a = a dummy argument. 




conunent = up to 50 character coinment 





COMMENTS: The function statement must be the first statement of a function 
subprogram. A function subprogram is referenced by using its 
symbolic name (together with an actual argument list) as a prim- 
ary in an arithmetic or logical expression in another program unit. 
The comment and its preceeding comma are optional. If present it 
is passed to the loader via the relocatable object code. 



EXAMPLES: 

VAR = USERl (X,Y,Z) **USER2 (X,Y) 



REAL FUNCTION USER1(A,B,C) 



USERl = A+B/C 

RETURN 

END 

REAL FUNCTION USER2 (VARRl , VARR2) 



USER2 = VARRl -VARR2 

RETURN 

END 



NOTE: The ", comment" in the FUNCTION statement Is an 
extension of the standard . 
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Defining Function Subprograms 



The symbolic name of the fvinction siabprogram must also appear as a variable 
name in the defining subprogram. During every execution of the subprogreun, 
this variable must be defined, and, once defined, may be referenced or re- 
defined. The value of the variable at the time of execution of any RETURN 
statement in this subprogram is called the value of the function. 

The symbolic name of the function subprogram must not appear in any non- 
executable statement in this program unit, except as a symbolic name of the 
function subprogram in the FUNCTION statement or in a Type-specification 
statement. 

The symbolic names of the dummy arguments may not appear in an EQUIVALENCE, 
COMMON or DATA statement in the function siibprogram. 

A dummy parameter can be used to dimension in array name, which also appears 
as a dummy parameter of the function. An array which is declared with dummy 
dimensions in a function must correspond to an array which is declared with 
constant dimensions (through some sequence of argument association) in a 
calling program unit. An array declared with dummy dimensions may not be 
in common. 

The symbolic name of a dimrniy argument may represent a variable, array, a 
subroutine or another function subprogram. 

The function subprogram may contain any statements except PROGRAM, SUBROUTINE, 
BLOCK DATA, another FUNCTION statement, or any statement that directly or 
indirectly references the function being defined. 

The function subprogram may define or redefine one or more of its arguments 
to return results as well as the value of the function. Therefore, the user 
must be aware of this when writing his programs. For example, a function 
subprogram that defines the value of GAMMA as well as finding the value of 
ZETA could be coded: 
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FUNCTION ZETA (BETA, DELTA, GAMMA) 

A = BETA** 2 - DELTA** 3 

GAMMA = A*5.2 

ZETA = GAMMA** 2 

RETURN 

END 

Then, a program referencing the fimction could be: 
GAMMB = 5.0 

RSLT = GAMMB+7.5 + ZETA ( . 2 , . 3 , GAMMB) 

which results in the following calculation: 

RSLT = 5.0 + 7.5 + ZETA, where ZETA is determined as: 

A = .2**2 - .3**3 = .04 - .027 = .013 
GAMMA = .013*5.2 = .0676 (GAMMB is not altered) 
ZETA = .0676**2 = .00456976 
RSLT = 5.0 + 7.5 + .0046976 = 12.50456976 

However, the program: 
GAMMB =5.0 

RSLT = ZETA ( . 2 , . 3 , GAMMB) + 7.5 + GAMMB 
would result in the following calculations for ZETA and GAMMB: 



A 



.2**2 



- .3**3 = 



.04 - .027 = .013 



GAMMA 



.013*5.2 = 



.0676 = GAMMB 



ZETA 



.0676**2 = 



.00456976 



RSLT 



.00456976 + 7.5 + .0676 = 7.57216976 
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Referencing Function Subprograms 



The actual argiiments of a fmiction siabprogram reference argument list must 
agree in order, nimiber and type with the corresponding dummy argimients in 
the function subprogram. 

When referenced, the symbolic name of the function subprogram must be 
immediately followed by an actual argument list, except when used in a Type- 
specification or EXTERNAL statement, or as an actual argument to another 
subprogram. 

An actual argument in a function subprogram reference may be one of the 
following: 

A constant 

A variable name 

An array element name 

An array name 

Any other expression 

The name of a FORTRAN IV library function 

The name of a user-defined FUNCTION or SUBROUTINE subprogram. 

If an actual argument is a function subprogram name or a subroutine name, 
the corresponding dummy argument must be used as a function subprogram 
name or a subroutine name, respectively. 

If an actual argument corresponds to a dummy argument defined or redefined 
in the referenced function subprogram, the actual argiament must be a 
variable name, an array element name, or an array name. 
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Execution of a fmction subprogram reference results in an association of 
actual arguments with all appearances of dummy arguments in executable 
statements and adjustable dimensions in the defining subprogram. If the 
actual argument is an expression, this association is by value rather than 
by name. Following these associations, the first executable statement of 
the defining subprogram is executed. 

An actual argument which is an array name containing variables in the sub- 
script could, in every case, be replaced by the same argument with a con- 
stant subscript containing the same values as would be derived by computing 
the variable subscript just before the association of arguments takes 
place. 

If a dummy argument of a fvinction subprogram is an array name, the corres- 
ponding actual argument must be an array name or an array element name. 
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SUBROUTINE 



PURPOSE: To define a user-specified subroutine, which may be compiled 
independently from a program unit which references it. 



FORMAT: 

SUBROUTINE s, comment 

SUBROUTINE s (a^, , ' comment 

s = the symbolic name of the subroutine 
a = dummy argument 

comment = up to 84 character comment 



COMMENTS: To reference a subroutine, a program unit uses a CALL statement. 

The SUBROUTINE statement must be the first statement in a 
subroutine subprogram. 

The SUBROUTINE statement cannot be used in a function subprogram. 
The comment and its preceeding comma is optional. If present it is 
passed to the loader via the relocatable object code. 

EXAMPLES: 

CALL MATRX SUBROUTINE MATRX, INVERSE- DATE 19 OCT 

// // 
CALL SUBR(I,J) RETURN 

END 

SUBROUTINE SUBR (K,L) , DATE 30 OCT 76 

// 
RETURN 
END 



NOTE: The ", comment" in the SUBROUTINE statement is an 
extension of the standard. 
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Defining Subroutines 



The symbolic name of the siabroutine must not appear in any statement except 
as the symbolic name of the subroutine in the SUBROUTINE statement itself. 

The symbolic names of the dummy arguments may not appear in an EQUIVALENCE, 
COMMON, or a DATA statement in the subroutine. 

A dummy parameter can be used to dimension an array name, which also appears 
as a dummy parameter of the subroutine. An array which is declared with 
dummy dimensions in a siibroutine must correspond to an array which is de- 
clared with constant dimensions (through some sequence of argument associ- 
ation) in a calling program unit. If a parameter array is declared with 
values (instead of dummy dimensions) in a subroutine, the actual values must 
be specified for the first (N-1) dimensions. An array declared with dummy 
dimensions may not be in common. 

The symbolic name of a dummy argument may be used to represent a variable, 
array, another subroutine or a fianction svibprogram. 

The subroutine defines or redefines one or more of its arguments to return 
results. 

The subroutine may contain any statements except a FUNCTION statement, BLOCK 
DATA statement, PROGRAM statement, another SUBROUTINE statement, or any 
statement that directly or indirectly references the subroutine being defined. 

Referencing Subroutines 

The actual arguments which constitute the argument list must agree in order, 
number and type with the corresponding dummy arguments in the defining 
subroutine. 
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An actual argiament in a subroutine reference may be one of the following: 

A constant 

A variable name 

An array element name 

An array name 

Any other expression 

A FORTRAN IV library function name 

A user-defined fxmctioh or subroutine subprogram name 

If an actual argument is a function subprogram name or a subroutine name, 
the corresponding dummy argument must be used as a function sxibprogram 
name or a subroutine name, respectively. 

If an actual argianent corresponds to a dtammy argument defined or redefined 
in the referenced subroutine, the actual argument must be a variable name, 
an array element name, or an array name. 

Execution of a subroutine reference results in an association of actual 
arguments with all appearances of dummy arguments in executable statements 
and adjustable dimensions in the defining subroutine. If the actual argu- 
ment is an expression, this association is by value rather than by name. 
Following these associations, the first executable statement of the de- 
fining s\±)routine is executed. 

An actual argument which is an array name containing variables in the sub- 
script could, in every case, be replaced by the same argument with a con- 
stant sxabscript just before the association of arguments takes place. 

If a dummy argument of a subroutine is an array name, the corresponding 
actual argument must be an array name or an array element name. 
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BLOCK DATA SUBPROGRAMS 



PURPOSE: To define a block data subprogram, which may be compiled in- 
dependently from a program unit which references it. 



FORMAT: 

BLOCK DATA name, comment 

name = an optional name 

comment = up to 84-character comment 



COMMENTS: The block data subprogram is used to: 

1. Define the size of and generate subprograms which reserve 
space for each named common block, except EMA common. 

2. Optionally to initialize the variables in one (or more) 
named common block. 

The BLOCK DATA statement must be the first non-comment statement 
in a block data subprogram. 

The name specified in the BLOCK DATA statement is used only in the 
heading produced for the listing. Each different named common block 
within a block data subprogram will produce a separate subprogram 
module which will have the common block name. The comment string 
will be passed to the loader with each named common subprogram 
produced. 

Each named common block, except EMA common, referenced in an 
executable FORTRAN program must be defined in a block data 
subprogram. This is necessary to reserve room for the named 
common block. 
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EXAMPLES: 



BLOCK DATA XYZ , DATE=7707 07 
COMMON/ XYZ/A (10) ,B(200) ,KKK 
COMMON/BITS /IB (16) 

DATA IB/1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384,100000b 



NOTE: The ", comment" parameter in the BLOCK DATA 
statement is an extension of the standard . 
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APPENDIX A 
DATA FORMAT IN MEMORY 



The six types of data used in FORTRAN IV (integer, real, double precision, 
complex, logical, and Hollerith) have the following format when stored in 
memory . 



INTEGER FORMAT 

PURPOSE; An integer datum is always an exact representation of a positive, 

negative or zero valued integer, occupies one 16-bit word and 

15 15 
has a range of -2 to 2 -1. 



FORMAT: 



15 


14 




0 


d 


sign bit 


number bits 
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REAL FORMAT 



PURPOSE: A real datum is a processor approximation to the positive, neg- 
ative or zero valued real nvanber, occupies two consecutive 

-38 

16-bit words in memory euid has an approximate rcunge of 10 
to 10^^. 



FORMAT: 



15 



14 



•implied binary point 



fraction bits 
sign of fraction 



word 1 



15 



fraction bits 



exponent bits ^ 



sign of exponent 



0 



word 2 



COMMENTS: a real number has a 23-bit fraction and a 7-bit exponent. 

Significance (to the user) is to six or seven decimal digits, 
depending upon the magnitude of the leading digit in the 
faction. 
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3 WORD DOUBLE PRECISION FORMAT 



PURPOSE: A double precision datiam is a processor approximation to a 
positive, negative or zero valued double precision number, 

occupies three consecutive 16-bit words in memory and 

—38 38 
has an approximate range of 10 to 10 



FORMAT: 



15 



14 



■implied binary point 



fraction bits 
sign of fraction 



15 



fraction bits 



lis 


8 


7 1 


0 


fraction bits 


exponent bits 





word 1 



word 2 



word 3 



COMMENTS: a doiable precision niamber has a 39-bit fraction and a 7-bit 
exponent. 

Significance (to the user) is from 11.44 to 11.74 decimal 
digits, depending upon the magnitude of the leading bit in 
the fraction. 
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4-WORD DOUBLE PRECISION FORMAT 



PURPOSE: A double precision datum is a processor approximation to a 
positive, negative or zero valued double precision number, 

occupies four consecutive 16-bit words in memory and 

—38 38 
has an approximate range of 10 to 10 



FORMAT: 





M —implied binary point 






15 


14 


ol 


word 1 




fraction bits 






L 


sign of fraction 







15 



15 



fraction bits 



fraction bits 



lis 


8 


7 1 


0 


fraction bits 


exponent bits 





word 2 



word 3 



word 4 



COMMENTS: A double precision number has a 55-bit fraction and a 7-bit 
exponent . 



Significance (to the user) is from 16.26 to 16.56 decimal 
digits , depending upon the magnitude of the leading digit in 
the fraction. 
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COMPLEX FORMAT 



PURPOSE: A complex datum is a processor approximation to the value of a 
complex number and occupies four consecutive 16-bit words in 

memory. Both the real and imaginary parts have an approximate 

— 38 38 
range of 10 to 10 



FORMAT: 



real 
part 



imaginary 
part 



15 



14 



implied binary point 



fraction bits 
sign of fraction 



15 



implied binary point 



14 



. fraction bits 

I— sign of fraction 



|l5 8 


7 


0 


fraction bits 


exponent bits 


f 




sign of exponent 





word 1 



word 2 



word 3 



Us 


8 


7 


1 


0 


word 4 


fraction bits 


sign 


exponent bits 
of exponent 







COMMENTS: Both the real part and the imaginary part have 23-bit fractions 
and 7-bit exponents; both have the same significance as a real 
number. 
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LOGICAL FORMAT 



PURPOSE: A logical datum occupies one 16-bit word in memory. The 
sign bit determines the truth value: 1 = true, 0 = false. 



FORMAT: 





15 


14 




























0 


= .TRUE. 






































1 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 






15 


14 




























0 


= .FALSE. 






































0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 





HOLLERITH FORMAT 

PURPOSE: A Hollerith datum is a one or two character string taken from 
the HP ASCII character set; it occupies one 16-bit word in 
memory . 

FORMAT: 



15 




8 


7 




0 


HOLLERITH 1 


HOLLERITH 2 
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APPENDIX B 
COMPOSING AN RTE FORTRAN IV JOB DECK 



After a source program has been written, it is submitted as a FORTRAN IV 
job deck. A job deck is input in the form of a disc file, punched cards, 
a source paper tape or through a teleprinter. The job deck has the 
following form: 

FORTRAN CONTROL STATEMENT 
MAIN PROGRAM 

/; 

END STATEMENT 
SUBPROGRAM (1) 
// 

END STATEMENT 

SUBPROGRAM (n) 

// 

END STATEMENT 

FORTRAN END JOB STATEMENT 



FORTRAN CONTROL STATEMENT 

The FORTRAN CONTROL STATEMENT specifies the type of output to be produced by 
the compiler. The CONTROL STATEMENT parameters within a job deck may be 
overridden using the options parameter when the FORTRAN IV Compiler is in- 
voked. Refer to the FORTRAN IV Operations Section in this manual for more 
information. 

FORTRAN END JOB STATEMENT 

A FORTRAN end job statement is a source statement that contains the currency 
symbol {$) in column one or END$ in columns 7-72. 
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APPENDIX C 



SUMMARY OF COMPATIBILITY WITH ANSI 

FORTRAN IV 

The RTE FORTRAN IV compiler conforms to the American National Standards 
Institute FORTRAN IV specifications as described in the ASA publication 
X3. 9-1966, with the following exceptions and extensions. 

EXCEPTIONS TO STANDARD 

Program, subprogram, and external names are limited to five characters. Six 
character symbols are accepted but are shortened to five characters by 
deletion of the fifth character. For example, the program name JOHNOl is 
changed to JOHNl by the RTE FORTRAN IV compiler. 

Intrinsic functions are treated as external functions. 

Integer values occupy one word less than real values. 

RTE FORTRAN IV requires that each named common block be described in a block 
data subprogram even if no variables are to be initialized. 

The FORTRAN IV Formatter supports the transfer of data records containing a 
maximum of 132 characters within a formatted READ or WRITE operation, or a 
maximum of 50 words within an unformatted (binairy) READ or WRITE operation. 

The Formatter processes READ or WRITE requests for the transfer of records 
larger than these limits by dividing the original record into records sized 
to match the limits. This process affects the file positioning operations. 

For example, ass\ime that a READ request is issued for a 1000-word binary 
record. The Formatter divides this record into 16 records of 60 words each 
and 1 record of 20 words. In order to backspace and re-read from the 
beginning of the original record, 17 backspace operations must be performed 
prior to the request to re-read the data. 
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EXTENSIONS OF STANDARD 



A subscript expression may be any arithmetic expression allowed in RTE 
FORTRAN IV. However, if an expression is of a type other than INTEGER, it is 
converted to Type-INTEGER after it has been evaluated. 

The initial, tenninal, and step-size parameters of a DO statement or an 
implied DO list may be any arithmetic expression. If the expressions are not 
of Type-INTEGER, they are converted to Type-INTEGER after they have been 
evaluated. The step-size parameter may be either positive or negative, thereby 
allowing either incrementing or decrementing the terminal parameter value. 
(Implied DO lists may use only integer arithmetic expressions which do not 
reference functions that perform I/O operations or execute READ/WRITE 
statements . ) 

Comment lines may appear anywhere including within statements continued on 
additional lines. 

Strings may appear in PROGRAM, FUNCTION, SUBROUTINE, and BLOCK DATA 
statements . 

Specification of a comma as a statement separator is allowed in a DO 
statement. 

For all statements, there is no limit to the number of continuation lines. 
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The integer variable reference in a computed GO TO can be replaced by any 
arithmetic expression. Non-integer expressions are converted to type in- 
teger before the GO TO statement is executed. If the value of the express- 
ion is less than one, the first statement in the computed GO TO list is 
executed. If the value is greater than the number of statements listed in 
the GO TO, the last statement in the computed GO TO list is executed. 

The Hollerith constant nHc^c^-.-c (for n<9) may be used in any arithmetic 

expression where a constant or an expression of type implied by n (see page 

2-9) is permitted. Note, however, the n=0 is not permitted and that if n is 

odd the c is stored in the left half of the computer word, with a blank 
n 

character in the right half. 



Any two arithmetic types may be mixed in any relational or arithmetic oper- 
ation except exponentiation. 

Additional types of exponentiation are permitted. (See Table 3-2.) 

An unsubscripted array name is an admissible list element in a DATA state- 
ment. In this case, the correspondence with constant values is as follows: 
If the array has n elements, then the next m constants from the list are 
used to initialize the array in the order in which it is stored (column 
order) . If the remainder of the constant list (at the time the array name 
is encountered) has m < n elements in it, then only the first m elements 
of the array are initialized. 

ASSIGN statements may be used with FORMAT statement numbers and the integer 
variable then can be used in READ and WRITE statements. 

Integer variables defined by the ASSIGN statement may be passed to functions 
and subf unctions . 
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APPENDIX D 



COMPATIBILITY BETWEEN HP FORTRAN AND 

RTE FORTRAN IV 

RTE FORTRAN IV contains some language extensions to provide compatibility 
with HP FORTRAN. These features are: 

Special characters included with ASCII input data can direct its formatting 
(free field input) ; a FORMAT statement need not be specified in the source 
program. 

Alphanumeric data can be written without giving the character count by speci- 
fying heading and editing information in the FORMAT statement through " . . . " 
entries. 

The Aw conversion code of HP FORTRAN is equivalent to the Rw conversion code 
in RTE FORTRAN IV. A single character stored in a word under R format control 
is placed in the right half of the word with zeros in the left half. On out- 
put, using the Rw format, the right half of the word is written. A HP FORTRAN 
program using an Al FORMAT specification may have to be changed to use the 
Rl specification. The user may also use calls to OLDIO. (See the Relocatable 
Subroutines manual. ) 

The END statement is interpreted as a RETURN statement (in a subprogram) or 
as a STOP statement (in a main program) . A RETURN statement in a main pro- 
gram is interpreted as a STOP statement. 

The HP FORTRAN External Functions which perform masking (Boolean) operations 
(lAND, lOR, NOT) and test the sense switches (ISSW) are retained as RTE 
FORTRAN IV library functions. 

The two-branch arithmetic IF statement (IF (e) n^, n^) is retained in RTE 
FORTRAN IV. 

Octal constants are valid in RTE FORTRAN IV. 
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Using an unsubscripted array name always denotes the first element of that 
array, except in an I/O statement or a DATA statement, where the entire array 
is referenced. A single subscript, i, with a multiply-dimensioned array, 
denotes the ith element of the array as it is stored (in column order) . 

The PROGRAM statement syntax for HP FORTRAN differs between the RTE-II/III 
and the RTE-M Operating Systems. The difference is in the handling of the 
optional parameter string and the inclusion of a comment in the PROGRAM 
statement. Refer to the RTE-II, RTE-III, and RTE-M Programming and Operating 
Manuals for specific details. 

In the previous HP FORTRAN IV compiler, FORMAT statement code was generated 
in line within the program code produced by the compiler. This required use of 
a jump operation to avoid execution of the FORMAT statement. The FORMAT state- 
ment number was associated with the jump operation which allowed the FORMAT 
statement number to be used to control the flow of the program (that is, in 
GO TO, IF, or DO statements). 

Because the ANSI standard for FORTRAN IV dictates that statement labels used 
in program control statements must be associated only with executable state- 
ments within the same program unit, RTE FORTRAN IV does not allow the FORMAT 
statement number to be used in this manner. The RTE FORTRAN IV compiler 
generates FORMAT statement code in the data area following the program code. 
The jump operation is not generated and the statement number is associated 
directly with the FORMAT statement. This allows usage of the ASSIGN state- 
ment with FORMAT statements but precludes the use of a FORMAT statement 
number in program control statements such as GO TO, IF, or DO statements. 

An additional difference between the previous HP FORTRAN IV compiler and the 
RTE FORTRAN IV compiler exists in the handling of array addresses. The HP 
FORTRAN IV compiler generated the address of each array mentioned in the 
specification statements prior to generation of any executable code. Usually, 
the array addresses immediately preceded the actual array. 

The RTE FORTRAN IV compiler generates array addresses only if they are needed. 
If generated, the addresses usually appear in the data area following the 
program code while the actual array precedes the program code. 
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APPENDIX E 
CROSS REFERENCE SYMBOL TABLE 



The RTE FORTRAN IV Compiler provides the option of producing a cross 
reference listing of symbols and labels used in the source program. The 
sample program listing shown in Appendix F contains a cross reference 
symbol table as the last item listed. If requested, the cross reference 
symbol table is always the last listing produced for each compiled program 
unit. 



REQUESTING A CROSS REFERENCE SYMBOL TABLE LISTING 



The optional parameter C is used in the FORTRAN Control Statement to request 
a cross reference symbol table. Appendix J describes the format and 
parameters of the FORTRAN Control Statement. 



CHARACTERISTICS OF TABLE 

Each symbol is printed followed by the line numbers in which the symbol 
appears. Multiple references in one line to the same symbol are noted. 
Statement labels are preceded by the @ character. 

Up to eight line numbers are printed per line of the cross reference symbol 
table. The line numbers are lasted in ascending order except when they occur 
in an EQUIVALENCE statement. For example, 

0099 COMMON N 

0100 EQUIVALENCE (N(l), M{1)) 

0101 DIMENSION N{50), M{50) 

0102 N{1)=1 
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produces, for the symbol N, the following cross reference information: 



N 0099 0101 0100 0102 



ERROR CONDITIONS 



The cross reference symbol table is not complete for lines which contain com- 
pilation errors, since compilation is terminated at the point in the line 
where the error is detected. Also for programs with a large number of 
EQUIVALENCE statements some references in the EQUIVALENCE statements may be 
absent from the cross reference. 
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APPENDIX F 

SAMPLE LISTING OF RTE 
FORTRAN IV PROGRAM 
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0001 FTH4,L>« 

0002 BLOCK DATA kMEST BLOCK DATA 770107 

0003 COMMON /NAMEl/BITS 

0004 DIMEHSION BITS< 16) 

0005 IMTEGER BITS 

0006 COMMON /NAME2/ B,A,C 

0007 DIMENSION A< 5 B< 5 , 5 )> C< 5 , 5 > 5 > 

0008 C 

0009 C 

0010 DATA BITS/1. 2. 4,8, 16,32,64, 128,256,512,1024,2048.4096, 

0011 C 8192, 16384, 100000B/,A/'5*5./ 

0012 END 

FTN4 COMPILER! HP92060 -1 6092 REV. 1726 
** NO «ARN1NGS ** NO ERRORS ** 
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0002 BLOCK DATA X,TEST BLOCK DATA 770107 

<!<>03 COMHON /NAMEl/BITS 

0004 DIMENSION BITS< 16) 

0005 INTEGER BITS 

0006 COHMON /'NAME2/ B.A,C 

0007 DIMENSION A< 5 ) . B< 5 > 5 ) . C < 5 , 5 > 5 ) 

0010 DATA BITS/1. 2, 4>&> 16>32>&4. 128>256>512>1024>2048.4096> 



00 0 00 


00000 1 


OCT 


000001 


00001 


000002 


OCT 


000002 


00002 


000004 


OCT 


000004 


00003 


00001 0 


OCT 


000010 


00004 


000020 


OCT 


000020 


00005 


000040 


OCT 


000040 


00006 


000100 


OCT 


0 0 0100 


00007 


000200 


OCT 


000200 


00010 


000400 


OCT 


000400 


0001 1 


0 0100 0 


OCT 


00 1000 


00012 


002000 


OCT 


002000 


000 13 


004000 


OCT 


004000 


00014 


0 1000 0 


OCT 


0100 00 


C 


8192, 1 6384. 1000008/> 


A/ 5* 5. 


00 0 15 


02000 0 


OCT 


020000 


00016 


040000 


OCT 


040000 


00017 


1 00000 


OCT 


1 00000 



0012 END 
BLOCK COMMON NAMEl SIZE = 00016 
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0002 
0 0 0 3 
0004 
0005 
00 0& 
0007 
0010 
0011 



c 

00062 
00063 
00064 
00 0 65 
00066 
00067 
00070 
0 0 0 71 
00 072 
00073 



BLOCK DATA K,7ESJ SLOCK DATA 770107 
CO H HON /NAHEI/8ITS 
DIMEHSI ON 81 TS( 16 ) 
INTEGER SITS 
COMMON /HAME2/ 8.. A,C 
DIMENSI ON A< 5 >. B< 5, 5 
DATA S3TS/1. 2,4,8, 16 
81 92 , 1 6384, 1 OOOOOS/ 



0012 



050000 
0 0 0 0 0 6 
050000 
0 00 00 6 
0 50 00 0 
000006 
050000 
0 0 0 0 0 6 
0 50 00 0 
000006 
EHD 



),C':5,5,5> 
,32,64, 128. 
.. A/5 - «5 . / 
ESS O0042B 
OCT 050000 
OCT 000006 
OCT 050000 
OCT 000006 
OCT 050000 
OCT 000006 
OCT 050000 
OCT 000006 
OCT 0 5 00 00 
OCT 00 00 06 

SSS 00372B 



L' 5 6 , 5 1 2 , 1 0 2 4 , 2 0 4 8 , 4 0 S> 6 



BLOCK COHMON NAME2 SIZE = 00310 
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SVHBOL TABLE 



NAME 



ADDRESS 



USAGE 



TYPE 



LOCATION 



A 

B 

SITS 
C 

NAHE 1 
NAME 2 



0 0 00 62 + 
0 0 00 00 + 
000000 + 
0000 74 + 
0 0 0 0 2 0 R 
C-0 04 66R 



ftRRAY< * ) 
ARRAY'; * , * ) 
ARRAY< * ) 
ARRAy< ) 
C OHM ON LABEL 
COMMON LABEL 



REAL 

REAL 

INTEGER 

REAL 

INTEGER 

INTF.GER 



L CO?iHON 
L COi^flON 
L C 0 i'i H 0 H 
L COMMON 
LOCAL 
LOCAL 



H A H E 2 
MANE 2 
HA HE 1 
NAME 2 



F-5 



PAGE 0005 FTN. 3!54 P« FRI., 17 JUHE, 1977 



V V 1 »> 






V V i 




WW n nun a nMfic.i/Di j o \ x v / 1 nrinc£/o\(j> ij//ri \ j .* 


G 6 1 S 

V V * »J 




IMTFCFft BITS 


V V 4 c 






I'll!) 1 7 


t 6 >'> 




/id 1 ft 




a ft i T = 1 . ^ 


V V i J 






J*! A O A 
V V t V 






0021 




S< I , J )= I *I J 


CO 22 




D0 8i';= 1 .. 5 


0023 




C< I , J .K > = I*I +J*J + K*K 


0024 


3 


CONTINUE 


0025 


7 


CONTI NUE 


0026 




CONTINUE 


0027 




yRITE<6> 100>SITS, A.B-C 


0028 




CONTINUE 


00 29 




END 



FTN4 COMPILER! HP92060 -1 6032 REV. 1726 

** NO yARNlNGS ** NO ERRORS ** PROGRAM = 00191 COMMON = 00000 
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0013 PROGRA»t( )> MAIN NAHED COHHOH 

0014 COHMON /NAME 1 /BITS< 16>/NAnE2/8< 5> 5 >, A< 5 >, C< 5, 5, 5 ) 

0015 INTEGER BITS 

0016 WRI TF.< 6.. 100 >BITS. < A( ) , J J = 1 > 5 ). < < B< KK ,KKK ) ,KK= 1 , 5 >. K)<K = 1 .. 5 ) .. C 



00000 


000000 


NOP 




00001 


0 00 00 1 X 


JSB 


CLRI 0 


00 0 02 


0 0 0 0 0 3 R 


DEF 


* - 2 + 0 0 0 


00003 


000242R 


LDA 


00242B 


00004 


006400 


CLB 




00 0 05 


000002X 


JSB 


. D I 0 , 


00 0 06 


000261 R 


DEF 


ei 00 


0 0 0 0 7 


0O0072R 


DEF 


00072B 


00010 


000003X 


JSB 


. I AY . 


00011 


000004X 


DEF 


NAME 1 




000000 + 






000 12 


0 0 0 02 0 


OCT 


0 0 00 20 






BSS 


00002B 


00015 


000243R 


LDA 


J J 


000 16 


001 000 


AL3 




000 17 


0 0 0 2 4 4 R 


ADA 


002446 


00020 


000245R 


STA 


A . 001 


00021 


000005X 


JSB 


. RIO . 


00 0 22 


1 00245R 


DEF 


A . 00 1 , 1 






ORG 


0001 3B 


000 13 


000246R 


LDA 


00246B 


00014 


000243R 


STA 


J J 






BSS 


0 0 00 6B 


00023 


000 24 3R 


LDA 


J J 


00024 


00024 6R 


ADA 


00246B 


00025 


00024 3R 


STA 


J J 


00 0 26 


003004 


CMA > 


INA 


00 0 27 


00024 1 R 


ADA 


00241B 


00030 


00202 1 


SSA, 


RSS 


00 031 


000 01 5R 


JHP 


0001 5B 






SSS 


00004B 


00 0 36 


0 00252R 


LDB 


0 0 25 2B 


00037 


002400 


CLA 




00 0 4 0 


000006X 


JSB 


. .HAP 


00041 


000253R 


DEF 


002536 


00 042 


0 00 25 OR 


DEF 


KK 


00043 


0 00251 R 


DEF 


K K K 


00044 


00024 1 R 


DEF 


0 0 24 IB 


00 045 


000245R 


STA 


A . 00 1 


00046 


0 00005X 


JSS 


.RIO. 


00 0 47 


1 00 24 5 R 


DEF 


A . 00 i .. I 






ORG 


000346 


00034 


0 00 24 6 R 


LDA 


0 0 24 66 


00 0 35 


000250R 


STA 


KK 






BSS 


0001 2B 


00 0 50 


0 00 25 OR 


LDA 


KK 


00051 


00024 6R 


ADA 


00246B 


00052 


0 0025 OR 


STA 


KK 


00 053 


003004 


CMA, 


I HA 


00 054 


0 00 24 IR 


ADA 


0024 16 


00 0 55 


0 0202 1 


SSA ,RSS 
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!01? 



OOlS 



0019 



0020 



0021 



00056 000036R 

00032 000246R 

00033 000251R 

00057 00025 !R 

00060 00024 &R 

00061 00025 IR 

00062 003004 

0 0 0 6 3 0 0 0 2 4 1 R 

00064 002021 

00065 000034R 

100 FORNAT-; X.. 16K7,/'; 

00066 0 00007X 

00067 00001 OX 
000074 + 

00070 000175 

00071 00001 IX 
D06i = l.. 5 



J«P 000366 
ORG 00032B 
LDA 00246B 
STA KKK 
BSS 00023B 
IDA KKK 
ADA 002466 
STA KKK 
C HA, I HA 
ADA 00241B 
S3A , RSS 
vlHP 000346 
31< 5< XF 10 . 2. 2X >/ ) > 
,156 .RAY. 
DEF NAHE2+00074B 

OCT 000175 
JSB .DTA. 



BSS 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ORG 
LDA 
STA 



00261 024 130 91 00 

00262 026061 

00263 033113 

00264 033454 

00265 027454 

00266 031461 

00267 024065 

00270 024 130 

00271 043061 

00272 030056 

00273 031054 

00274 031130 

00275 024457 

00276 024451 

00072 000246R 

00073 000254R 
A< I )=!*! 

00074 000254R 

00075 001000 

00076 000244R 
D0 7v}= 1 .. 5 

00077 000245R STA 

00100 000254R LDA 

00101 000012X JSB 

00102 0 00254R DEF 

00103 000013X JSB 

00104 000014X JSB 

00105 100245R DEF 

00106 0 00246R LDA 

00107 000255R STA 
B< I , J )= 1*1 +J*J 

00110 000252R LDB 

00111 002400 CLA 

00112 000006X JSS 



001676 
1 . < X 
1 . , 1 
1 > 6K 
1 , 7. 
1 , /. 
1 , 31 
1 , < 5 
1 .. < X 
1 , Fl 
1,0. 
1 , 2.. 
i , 2X 
1 , )/ 
1 , >) 
000726 
002466 
I 



LDA I 

ALS 

ADA 002446 



001 



MPY 



A 
I 

1 

FLOAT 
. DST 
A . 00 1 , I 
002466 

002526 
. . «AP 
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V V X 1 o 


A A A 9 ■? S 




6 I'i 5 ■? ft 
V V ^ D 


V V i 1 *r 


A A A 9 *=i il J? 
\f V V £. w< *r rl 


n P P 

W C r 


7 
i 


V V i i «J 


f\ >''i A ^? *^ JS* 
V 'i' V £ w< r% 


f) P F 


A 
u 


V V i ID 


A A A 9 ii t 1> 
V V V t 1 K 


1/ C r 


6 0 d 1 ft 
V V t t i D 


Art 1 * 7 


A i'^ A 0 il ''^ & 
V V V £ n ^ rl 


<; T £i 


H . V V 1 


A Ail A 


A A A 0 ^ D 
V V V £ (-< *r fS 


i_ l/H 


T 


A A i 5 ! 


A »*i A A 1 5 y 
V V V V J t A 




M P V 


A A * C> ^ 


A A A ii D 
V V V ^ f r\ 


fl P P 
1/ c r 


T 
I 










AA t i)"? 


/I A A 9 li 7 P 

V V V £ *T I K 


T ii 


T 1 

I . V V I 


A A t ^ d 


I'l A A 0 *=> 5 
V S' V <c 1.* ^ 


L U H 


t 

u 




A i\ A A 1 V 




M P V 


A A 1 A 


A i'i A C' '•i & 
V V V c. J J »\ 


f) p p 
u c r 


1 


001 27 


000 24 7 R 


n 6 

HUH 


a . V V 1 


00 130 


0 0 0 01 3 X 




PI fl li T 
r I- U H i 


00131 


0 0 0 0 1 4 X 


JSS 


. DST 


00 1 32 


1 00245R 


DEF 


A . 00 1 J 


001 33 


00024 6R 


LDA 


00246B 


00 1 34 


0 00256R 


STA 


K 




1*1 + J * J + K * K 




00135 


000252R 


LDB 


0 0 25 2B 


001 36 


002404 


CLA, INA 


00137 


000006X 


JSB 


. .MAP 


00140 


000257R 


DEF 


00257B 


00141 


000254R 


DEF 


I 


00142 


000255R 


DEF 


<i 


00143 


000256R 


DEF 


K 


00 1 44 


0 0024 1 R 


DEF 


0024 IB 


001 45 


00024 1 R 


DEF 


0024 16 


001 46 


000245R 


STA 


A. 001 


00147 


0 0 0 2 5 4 R 


LDA 


I 


001 50 


0 0 0 0 1 2 X 


J SB 


. Npy 


00151 


000254R 


DEF 


I 


00152 


000247R 


STA 


I . 001 


00153 


000255R 


LDA 


J 


00154 


00001 2X 


JSB 


. MPY 


00155 


000255R 


DEF 


J 


00156 


000247R 


ADA 


I . 001 


8 CONTINUF 






001 57 


0 0 0 2 0 R 


STA 


I . 002 


00160 


000256R 


LDA 


K 


00161 


00001 2X 


JSB 


. MPY 


00162 


000256R 


DEF 


K 


001 63 


000260R 


ADA 


I . 002 


00164 


00001 3X 


JSB 


FLOAT 


00165 


00001 4X 


JSB 


. DST 


00166 


100 24 5R 


DEF 


A . 00 1 . : 



0025 7 CONTINUE 



00167 


000 25 6R eS 


LDA K 


001 70 


000246R 


ADA 00246B 


00171 


000256R 


STA K 


001 72 


003004 


CMA . I HA 


001 73 


000241R 


ADA 00241B 


00174 


002021 


SSA,RSS 


00175 


000135R 


JHP 00135B 
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0026 



0027 



00 28 



0029 



6 


CONTI HUE 








00 1 76 


000255R 

Tr V li^ W\ 


9? 


LDA 


J 


00177 


000246R 




ADA 


00246B 


00 200 


000255R 




STA 


J 


00 201 


003004 




C)1A> INA 


00202 


00024 IR 




ADA 


00241B 


00 203 


0 02 02 1 




SSA,RSS 


00204 


00011 OR 




JHP 


OOllOB 




URITE<6, 100)BITS. 


A . B > C 


00205 


000254R 


@6 


LDA 


I 


00206 


000246R 




ADA 


00246B 


00207 


000254R 




STA 


I 


002 10 


003004 




CHA , I NA 


00211 


00024 1 R 




ADA 


002416 


002 12 


00202 1 




S3A>RSS 


00213 


0 0 0 0 7 4 R 




JHP 


0 0 0 7 4 B 


00214 


000242R 




LDA 


00242B 


002 15 


006400 




CLB 




002 16 


000002X 




aSB 


. D I 0 . 


00217 


00026 1 R 




DEF 


eioo 


00220 


000236R 




DEF 


00236B 


00221 


0 00 00 3 X 




iSB 


. I AY . 


00222 


000004X 
0 00000+ 




DEF 


NAME 1 


00223 


0 00 02 0 




OCT 


000020 


00224 


000007X 




JSB 


. RAY . 


00225 


00001 OX 
0 00 06 2+ 




DEF 


NAME2 + i 


00226 


000005 




OCT 


000005 


00227 


000007X 




JSB 


. RAY . 


00230 


00001 OX 
000000+ 




DEF 


NAME2 


00231 


000031 




OCT 


000031 


CONTI HUE 








002 32 


0 00 00 7 X 




JSB 


. RAY . 


00233 


00001 ox 

0 00 0 7 4+ 




DEF 


NAME2+ 


00234 


0 00 175 




OCT 


00 01 75 


00235 


00001 IX 




^SB 


. DTA . 


END 








00236 


00001 5X 




JSB 


EXEC 


00237 


0 0024 1 R 




DEF 


0 0 0 7 2 B 


00240 


000242R 




DEF 


0 0 24 2B 


00241 


000005 




OCT 


0 0 00 05 


00 242 


0 00 00 6 




OCT 


0 0 00 06 






vlJ 


BSS 


0 0 0 0 1 B 


00244 


0 0001 OX 
000060+ 




DEF 


NAME 2 + ' 






A . 0 0 1 


BSS 


0 000 IB 


00 246 


0 0 0 0 0 1 




OCT 


0 0 00 01 






I . 001 


BSS 


00003B 


00252 


000002 




OCT 


000002 


00253 


00001 OX 
0 00 00 0 + 




DEF 


NAHE2 






I 


BSS 


0 0 00 36 
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00257 OOOOlOX DEF NAME2+00074B 

000074+ 

1.002 BSS 00017B 
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SYMBOL TABLE 

NAHE ADDRESS USAGE 



eioo 


000261R 


STATEMENT HUMSER 




000205R 


STATEMENT NUMBER 


97 


OOO! 76R 


STATEMENT NUMBER 


@8 


0 0 0 1 6 7 R 


STATEMENT NUMBER 


A 


000062+ 


ARRAV< * ) 


B 


000000+ 


ARRA Y< * ^ * > 


BITS 


0 0 0000+ 


ARRAy< * > 


C 


000074+ 


ARRAY< 


CLRI 0 


00 0001 >; 


SUBPROGRAM 


EXEC 


ooooisx 


SUBPROGRAM 


FLOAT 


000013X 


SUBPROGRAM 


I 


0 0 0254R 


VARIABLE 




000255R 


VARIABLE 




000243R 


VARIABLE 


K 


0 0 02 5(>R 


VARIABLE 


KK 


0 0 0250R 


VARIABLE 


KKK 


000251 R 


VARIABLE 


NAME 1 


000004 X 


COMMON LABEL 


NAME2 


0 000 1 OX 


COMMON LABEL 



TYPE LOCATION 



REAL L COMMON HAME2 

REAL L COMMON HAME2 

INTEGER L COMMON NAMEl 

REAL L COMMON NAME2 

REAL EXTERNAL 

REAL EXTERNAL 

REAL EXTERNAL 

INTEGER LOCAL 

INTEGER LOCAL 

INTEGER LOCAL 

INTEGER LOCAL 

INTEGER LOCAL 

INTEGER LOCAL 

INTEGER EXTERNAL 

INTEGER EXTERNAL 
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APPENDIX G 



RTE FORTRAN IV COMPILER 
ERROR DIAGNOSTICS 



TYPES OF COMPILER DIAGNOSTICS 

There are three types of RTE FORTRAN IV compiler diagnostics: 

WARNING: The compiler continues to process the statement, but the 
object code may be erroneous. The program should be 
recompiled. 

ERROR: The compiler ignores the remainder of the erroneous source 

statement, including any continuation lines. The object code 
is incomplete, and the program must be recompiled. 

DISASTR: The compiler ignored the remainder of the FORTRAN IV job. 

The error must be corrected before compilation can proceed. 



NOTE: If an error occurs in a program, the object code 
will contain a reference to the non-system ex- 
ternal name .BAD. This prevents loading of the 
object tape, unless forced by the user. It is 
strongly recommended that a program with 
compilation errors not be executed . This 
reference is not produced for warnings. 
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FORMAT OF COMPILER DIAGNOSTICS 



When an error is detected in a source statement, the source statement number 
is printed, followed by the statement text. A question mark (?) is printed 
after the erroneous column. Then, a message is printed in the format: 

(warning] 
ERROR > nn DETECTED AT COLUMN cc 
disastr) 

program name = the name of the program being compiled 

nn = the diagnostic error number 

cc = the column number of the source line being 
scanned when the error was detected 



NOTE: If cc=01, the error is in the source line preceding 
the last line printed. If cc=00 , there is an error 
in an EQUIVALENCE group, and the group (or a 
portion of the group) is printed before the error 
message . 



When the END statement is encountered by the compiler and undefined source 
program statement niimbers still exist, an error message is printed of the 
form: 

0 nnnnn UNDEFINED 

nnnnn is the statement number that did not appear in columns 
1 through 5 of any of the initial lines of the program 
just compiled. 

At this point, a report is printed of any six-character names that will be 
shortened to five characters. 

Following the listing of the source program, a summary line is listed of the 
form: 

** nn ERRORS ** ** mm WARNINGS PROGRAM = xxxxx COMMON = yyyyy 

nn is. the number of errors detected (nn-NO, if no errors were detected). 

mm is the number of warnings detected (mm=NO if no warnings were detected) 

xxxxx is the decimal number of main memory locations required for the 
program object code. 

yyyyy is the decimal number of main memory locations required for the 
blank common block. (The size of named common blocks is printed 
immediately following the listing of the block data subprogram 
which defines each block.) 
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when compilation is completed, a summary message is displayed at the system 
console. This message reports the number of disaster, error, or warning 
conditions encountered during compilation. The RTE FORTRAN IV compiler 
returns this information via the parameter return subroutine PRTN (see the 
appropriate Operating System Programming and Operating Manual for a 
description of this subroutine) . The message appears in the form: 

$END FTN4: nn DISASTRS nn ERRORS nn WARNINGS 

nn is the total number of DISASTR, ERROR, or WARNING conditions encountered 
during compilation of all programs in the job deck {nn = NO, if none 
were encountered) . 

The parameters returned via PRTN are : 

parameter 1 - the total value of parameters 2 thru 4, 
parameter 2 - the number of disasters encountered, 
parameter 3 - the number of errors encountered, 
parameter 4 - the number of warnings encountered, 
parameter 5 - the revision level of the compiler. 
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TABLE G-1 

RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 

CODE EXPLANATION EFFECT ACTION 



01 COMPILER CONTROL STATEMENT MISSING 

There is no FTN or FTN4 directive 
preceding the FORTRAN IV job. 



Compilation 
terminated 



02 ERROR IN COMPILER CONTROL STATE- Compilation 

MENT terminated 

Incorrect syntax or illegal para- 
meter in FTN or FTN4 directive. 



03 SYMBOL TABLE OVERFLOW 

Insufficient memory exists for 
continuing compilation. 



Compilation 
terminated 



Reduce niomber of 
symbols (constants, 
variable names and 
statement numbers) 
in program and short- 
en lengths of vari- 
able names and state- 
ment numbers. 



04 LABELED COMMON Statement 

„ ,„ terminated 

Name too long or / missing or 

name already used for variable. 



05 IMPLICIT statement used to define Warning 

default type for some character 
more than once. The last defined 
type is used. 



06 END OF FILE OCCURRED BEFORE "$" 

Source input file ended before the 
"$" or END$ statement ending the 
FORTRAN IV job was encoxintered. 



Compilation Example: no "$" or 
terminated END$ statement at 
end of source file 



07 RETURN IN MAIN PROGRAM Comment 

A RETURN statement occurs in a 
main program. It is interpreted 
as a STOP statement. 
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TABLE G-1 (Cont. ) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 



EXPLANATION 



EFFECT 



ACTION 



08 ILLEGAL COMPLEX NUMBER 

A complex nvunber does not con- 
form to the syntax: 
(+ real constant, + real constant) 



Warning Example: non-real 

constemt as part 
of complex number: 
(1.0,2) 



09 MISMATCHED OR MISSING PARENTHESIS Statement 

-1 J • -4. terminated 

An xanbalanced parenthesis exists 

in a statement or an expected 

parenthesis is missing. 



10 ILLEGAL STATEMENT 

The statement in question cannot 
be identified. 



Statement 
terminated 



Examples : The first 
72 columns of a 
statement do not 
contain one of the 
following: (a) the 
'=' sign if it is a 
statement function 
or an assignment 
statement, (b) the 
' , ' following the 
initial parameter 
if it is a DO state- 
ment, (c) 'IFC for 
an IF statement or 
(d) the first four 
characters of the 
statement keyword 
for all other state- 
ments (e.g. DIME, 
WRIT) . A statement 
keyword may also be 
misspelled in the 
first four charac- 
ters (e.g. RAED) . 



11 ILLEGAL DECIMAL EXPONENT Statement 

terminated 

Non-integer constant exponent 
in floating point constant. 



12 INTEGER CONSTANT EXCEEDS MAXIMUM Statement 

INTEGER SIZE terminated 

An integer constant is not in the 
range of -32768 to 32767. 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 

ERROR 

CODE EXPLANATION EFFECT ACTION 



13 HOLLERITH STRING NOT TERMINATED Statement 

, ^..,11 ^1. terminated 

In the use of 'nH , less than n 

characters follow the H before 
the end of the statement occurs. 
In a FORMAT statement, an odd 
number of quotation marks sur- 
round literals. 



14 CONSTANT OVERFLOW OR UNDERFLOW Warning 

The binary exponent of a floating 
point constant exceeds the maximvim, 
i.e., I exponent I > 38. If under- 
flow, the value is set to 0. 



15 ILLEGAL SIGN IN LOGICAL EXPRESSION Warning 

An arithmetic operator precedes 
a logical constant. 



Examples : 
+ . TRUE . 



■•FALSE. 



16 ILLEGAL OCTAL NUMBER Statement 
An octal number has more than six terminated 
digits, is greater than 177777B or 

is non-integer. 

17 MISSING OPERAND - UNEXPECTED DE- Statement 
LIMITER terminated 

Missing subscript in an array 
declarator in a DIMENSION 
statement or missing name in 
an EQUIVALENCE group. 

18 ILLEGAL CONSTANT USAGE Warning 

A constant is used where a symbolic 
name is expected. Some illegal us- 
ages are when a constant is used as 
a s\±)program or statement function 
name , as a parameter or a subprogram 
or statement function, as an element 
of an EQUIVALENCE group, or as the 
blockname in a $EMA directive. 



Examples: 0000012B, 
277777B, .1234B 



Examples : 
DIMENSION A (2, 4,) 
EQUIVALENCE (B(2)) 



Examples: 
SUBROUTINE 1234 
FUNCTION NAME (X, 12, A) 
EQUIVALENCE (1,5) 
$EMA (1234,0) 
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TABLE G-1 (Cont.) RTE FORTRAN 


IV COMPILER ERROR 


DIAGNOSTICS 


ERROR 








CODE 


EXPLANA3!X0N 


EFFECT 


ACTION 


19 


INTEGER CONSTANT REQUIRED 


Statement 


Exaunples: A non-> 




An integer vaxiahle is used 
where an integer constant is 
required. 


terminated 


dummy integer vari- 
able is used in an 
array declarator or 
cui integer variable 
is used as a sub- 
script in an 
EQUIVALENCE group. 



TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


26 


INTEGER VARIABLE OR CONSTANT 


Statement 


Examples: A sub- 




REQUIRED 


terminated 


script in an 




Non-integer value is used where 
an integer quantity is required. 




EQUIVALENCE group 
element is a non- 
integer constant. 
A READ or WRITE 
statement has a 
non-integer logical 
unit reference. 


27 


STATEMENT NUMBER PREVIOUSLY 
DEFINED 

The same statement number appears 
on two statements. 


Statement 
terminated 




28 


UNEXPECTED CHARACTER 

Syntax of statement is 
incorrect. 


Statement 
terminated 




29 


ONLY STATEMENT NUMBER ON SOURCE 
LINE 

Some source code must appear 
within the first 72 columns of 
a numbered statement. 


Waim d ncr 




30 


IMPROPER DO NESTING OR ILLEGAL 
DO TERMINATING STATEMENT 

The ranges of nested DO loops 
overlap or a statement such as 
a GO TO, IF, RETURN or END ter- 
minated a DO loop. 


Statement 
terminated 




31 


STATEMENT NUMBER STARTS WITH 


Statement 


Example: Statement 




NON-DIGIT 


terminated 


source code appears 




A Statement number must be a 




in colvimns 1-5 of 
first line of a 
statement. 




1-5 digit integer. 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 



EXPLANATION 



EFFECT 



ACTION 



32 



33 



34 



35 



INVALID STATEMENT NUMBER OR 
ILLEGAL USAGE OF A STATEMENT 

NUMBER 

A statement number has more than 
five digits, or it contains a non- 
digit character, or it is 
iindefined. A statement number is 
of a wrong statement type. 

VARIABLE NAME USED AS SUBROUTINE 
NAME 

A name which has been previously 
used as a variable is now used 
in a subprogram reference. 

STATEMENT OUT OF ORDER 

Source statements must be in 
the order 1. Specification, 
2. DATA, 3. Statement Functions, 
and 4. Executable statements. 



Statement 
terminated 



Examples: GOTO 100 
100 FORMAT (-) 

WRITE (6, 10) 
10 J=l 



Statement Example : 



A=SIN 
B=SIN(X) 



Statement 
terminated 



Examples : A sub- 
program name oc- 
curring, with an 
argument list, on 
the left-hand side 
of an assignment 
statement may also 
generate this 
error message. 



NO PATH TO THIS STATEMENT OR UN- 
NUMBERED FORMAT STATEMENT 

The statement can never be executed 
since it is not numbered and it 
follows a transfer of control state- 
ment. A FORMAT statement is not 
numbered and therefore it cannot 
be used by the program. 



Comment 



36 DOUBLY DEFINED COMMON NAME Statement 

. , terminated 
A name occurs more than once in 

a COMMON block. 



37 ILLEGAL USE OF DUMMY VARIABLE Statement 

terminated 

A subprogram parameter occurs 
in a COMMON statement or dummy 
variables are equivalenced. 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 


EXPLANATION 


EFFECT 


ACTION 


38 


MORE SUBSCRIPTS THAN DIMENSIONS 


Statement 






An array name is referenced using 


terminated 










more subscripts than dimensions 








declared for it. 






39 


ADJUSTABLE DIMENSION IS NOT A 


Statement 






DUMMY PARAMETER 


terminated 






The variable dimension used with 








a dummy array name must also be 








a diommy parameter. 






40 


IMPOSSIBLE EQUIVALENCE GROUP 


Statement 






Two entries in COMMON appear in 


terminated 










an EQUIVALENCE group or two 








EQUIVALENCE groups conflict. 








Further EQUIVALENCE groups are 








ignored. 






41 


ILLEGAL COMMON BLOCK EXTENSION 


Statement 






An EQUIVALENCE group requires 


terminated 










the COMMON block base to be 








altered. Further EQUIVALENCE 








groups are ignored. 






42 


FUNCTION HAS NO PARAMETERS OR 


Statement 






ARRAY HAS EMPTY DECLARATOR 


terminated 






LIST 








A function must have at least 








one parameter. There is in- 








sufficient information to 








dimension an array name. 






43 


PROGRAM, FUNCTION OR SUBROUTINE 


Statement 






OR BLOCK DATA NOT FIRST STATEMENT 


terminated 






A PROGRAM Statement, if present. 








must come first. A FUNCTION or 








BLOCK DATA or SUBROUTINE statement 








is required for siibprograms . 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


44 


NAME IN CONSTANT LIST IN 
DATA STATEMENT 

A constant list in a DATA state- 
ment contains a non-constant. 


Statement 
terminated 




45 


ILLEGAL EXPONENTIATION 

Exponentiation is not permitted 
with data types used. 


Statement 
terminated 




46 


FUNCTION NAME UNUSED OR SUB- 
ROUTINE NAME USED 

In a FUNCTION subprogram, the 
name of the FUNCTION is not de- 
fined or a SUBROUTINE name is 
used within the subroutine. 


Warning 




47 


FORMAT SPECIFICATION NOT A 
LOCAL ARRAY NAME, STATEMENT 
NUMBER OR * OR IT IS AN EMA 
REFERENCE 

The FORMAT reference in an 
I/O statement is invalid. 


Statement 
teminated 




48 


ILLEGAL USE OF EMA 

A variably dimensioned EMA 
array has its dimension (s) 
in EMA or was mentioned 
without subscripts in an 
I/O list. 


Statement 
terminated 


Example : 


49 


IMPROPER USE OF NAME 

A variable is used as a sub- 
program name. 


Statement 
terminated 






UU bXAirjMriNT IN lAJvsXCAJj Ir 

A DO Statement is illegal as 
the "true" branch of a logical 
IF. 


Warning 





G-11 



TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


51 


CONTROL VARIABLE REPEATED IN 

A variable occurs as the index 
of two DO loops or implied DO's 
or a combination of these which 
are nested. 


Statement 
terminated 




52 


LOGICAL IF WITHIN LOGICAL IF 

A logical IF statement is 
illegal as the "true" branch of 
another logical IF. 


Statement 
terminated 




53 


ILLEGAL EXPRESSION OR 


Statement 


Examples: 




ILLEGAL DELIMITER 


terminated 


The expression con- 




Arithmetic or logical express- 
ion has invalid syntax or a 
delimiter is invalid in state- 
ment syntax. 




tains an illegal op- 
erator or delimiter, 
has a missing opera- 
tor (adjacent oper- 
ands) or a missing 
operand (adjacent 
operators) . A READ 
or WRITE statement 
list has a delimiter 
syntax error. 


54 


DOUBLY DEFINED ARRAY NAME 

An array name has dimensions 
defined for it twice. 


Statement 
terminated 




55 


LOGICAL CONVERSION ILLEGAL 

Conversion of logical data to 
arithmetic or arithmetic to 
logical is not defined. 


Statement 
terminated 




56 


OPERATOR REQUIRES LOGICAL 
OPERANDS 

An operand of type INTEGER, REAL, 
DOUBLE PRECISION or COMPLEX has 
been used with .AND., .OR., .NOT. 


Statement 
terminated 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERBOR 
CODE 


EXPLANATION 


EFFECT 


ACTION 


57 


OPERATOR REQUIRES ARITHMETIC 


Statement 






OPERANDS 


terminated 






A locfi pa 1 oDeirand ha^ bepn us fid 








in an arithmetic operation, i.e. +, 








~r *i / 1 ** 1 or a relational opera-^ 








tor. 






58 


COMPLEX ILLEGAL 


Statement 






One of the relational ooerators 


terminated 










.LT., .LE., .GT. or .GE. has a 








COMPLEX operand or an IF statement 








has a COMPLEX expression. 






59 


INCORRECT NUMBER OF ARGUMENTS 


Statement 






FOR SUBPROGRAM 


terminated 






One of the library routines SIGN, 








ISIGN, lAND or lOR is called with 








the number of arguments less or 








greater than two or a library 








routine which is called by value is 








4 

called with more than one argument. 






60 


ARGUMENT MODE ERROR 


Statement 






A library routine which is called 


terminated 










by value is called with an argu- 








ment that is DOUBLE PRECISION, 








COMPLEX or LOGICAL. 






61 


LOGICAL IF WITH THREE BRANCHES 


Warning 






The expression in an IF statement 








is of type logical and there are 








three statement numbers specified 








in the IF statement. 






62 


ARITHMETIC IF WITH NO BRANCHES 


Warning 






No Statement niambers in an arith- 








metic IF statement. 







G-13 



TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 


EXPLANATION 


EFFECT 


ACTION 




63 


REQUIRED I/O LIST MISSING 


Stat piTien t 








The I/O list required for a free 


terminated 














field input or unformatted out- 










^U. L. o Ud L.crllLcli u lido xiu l. Jh.'ccrii 


















64 


FREE FIELD OUTPUT ILLEGAL 


Statement 








An ' * ' in place of a format 


terminated 














designation is illegal in a 










WRITE statement. 








65 


HOLLERITH constant with count 


ERROR 








greater than 8 used in other than 










FORMAT or subprogram reference. 








66 


PROGRAM UNIT HAS NO BODY or BLOCK 


Warning 








DATA SUBPROGRAM HAS A BODY 










A main program, SUBROUTINE or 










FUNCTION requires an object program. 










or a BLOCK DATA subprogram has a 










function statement or executable 










statements . 








67 


SOURCE FILE OPEN OR ACCESS 


Compilation 


Example : END 


State- 




PRnRLFM OR 




luent, conucixns 


syn~ 




EOF or END$ or $ occurs before 




tax error or 


it is 




END statement or open or read 




inxssxn^ • 






error occurs while attempting 


















68 


EXTERNAL NAME HAS MORE THAN FIVE 


Warning 


















The name of a PROGRAM, SUBROUTINE 










or FUNCTION has more than five 










characters. The fifth character 










J- a LltJXtr Ut;(-l • 








69 


OCTAL STRING IN STOP OR PAUSE 


Warning 








STATEMENT IS TOO LONG 










In the statement STOP n or PAUSE n, 










n has more than four digits. 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 


EXPLANATION 


EFFECT 


ACTION 


70 


EQUIVALENCE GROUP SYNTAX 


Statement 






An EQUIVALENCE group does not 


terminated 










start with a left parenthesis. 








All further groups are ignored. 






71 


DUMMY VARIABLE IN DATA LIST 


Statement 






UQiiuiiy ^cti ciiiitr L-C-L o LjJ- ct ;3 u.i_f^x. -L ctiii 


terminated 










r^'j^nnr^'l" ini'h'ij^l ^ "7 f^c\ "in p\ DAT'A 

V_ Cll 11 ILJ L- yj V- J-liX 1 L Ct J L Zj vz; W. J.1 1 d J-/xi J. C\ 








O L.CL L.dLLCi.1 t,^ • 






72 


COMMON VARIABLE IN DATA LIST or in 


Statement 






BLOCK DATA SUBPROGRAM 


terminated 






VARIABLE IN DATA LIST NOT IN BLOCK 








COMMON . 








Entities of a COMMON block cannot 








be initialized with a DATA statement. 








Similarly, in block data subprograms, 








only entities in a named common block 






may be initialized. 






n o 
/ 6 


MIXED MODE IN DATA STATEMENT 


Statement 






A name and its corresponding 


terminated 










constant in a DATA statement do 








not agree in type. 






74 


ILLEGAL USE OF STATEMENT FUNCTION 


Warning 






NAME 








The name of a statement function 








also occurs in its dvimmy parameter 








list. 






75 


RECURSION ILLEGAL 


Statement 






The current program unit name 


terminated 












has been used in a CALL state- 








ment. 






76 


DOUBLY DEFINED DUMMY VARIABLE 


Warning 






The same dummy variable name 








occurs twice in a subprogram 








or statement function para- 








meter list. 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 


EXPLANATION 


EFFECT 


ACTION 


11 


STATEMENT NUMBER IGNORED 

A statement niimber on a specifi- 
cation, DATA statement, continua- 
tion line, or on a statement 
function is ignored. 


Warning 




78 


PROGRAM UNIT HAS NO EXECUTABLE 
STATEMENTS 

A program unit has only specifi- 
cation or DATA statements or 
statement functions. 


Warning 




79 


FORMAT DOES NOT START WITH 
LEFT PARENTHESIS 


Warning 




80 


FORMAT DOES NOT END WITH 
RIGHT PARENTHESIS 


Warning 




81 


ILLEGAL EQUIVALENCE GROUP 
SEPARATOR 

EQUIVALENCE groups are not 
separated by a comma or a non- 
array name has subscripts in an 
EQUIVALENCE group. All further 
EQUIVALENCE groups are ignored. 


Statement 
terminated 




82 


ILLEGAL USE OF ARRAY NAME IN AN 
EQUIVALENCE GROUP 

An array name in an EQUIVALENCE 
group is not followed by ' ( ' , ' , ' 
or ' ) ' . All further EQUIVALENCE 
groups are ignored. 


Statement 
terminated 




83 


SUBPROGRAM NAME RETYPED 

The type declared for a s\ib- 
program name within its body 
does not agree with the type 
established in the SUBROUTINE 
or FUNCTION statement. 


Warning 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


84 


OBJECT CODE MEMORY OVERFLOW 

Object program size is greater 
than 32K. 


Compiler 
terminated 




85 


POSSIBLE RECURSION MAY RESULT 


Warning 


The user is advised 




The use of one of the library 
names, enumerated in Table G-2 
as the name of a program, sub- 
program, or common block may 
produce recursion if the body 
of the subprogram so named 
required an implicit call to 
one of these names. 




to change the name 

n'P ^ViA QnbriTTicri^Ani 

or to make certain 
that no mixed mode 
exists in the pro- 
gram and that no 
library subprogram 
used requires a 






call to ERR<2f. 


86 


DUMMY VARIABLE IN STATEMENT 
FUNCTION CANNOT BE SUBSCRIPTED 

A dimmy variable in a statement 
fvinction cannot represent an 
array or a sxibprogram name. 


Warning 


Example: 

ASF (A)=A(1,1)+A(2,2) 


87 


NOT CURRENTLY USED. 






88 


END OR FORMAT STATEMENT IN 


Statement 


Specify a branch 




LOGICAL IF 


terminated 


that is not an END 




An END or FORMAT statement is 




or FORMAT statement. 




illegal as the "true" branch of 








a logical IF. 






89 


CONTINUE STATEMENT OR NO BRANCH 
IN LOGICAL IF 

Specifying no branch or a 
CONTINUE statement as a branch 
in a logical IF is logically 
equivalent to a NOP (No Operation) . 
The statement is assembled as 
stated. 


Warning 


Specify a valid 
branch or delete 
statement. 


90 


FIRST RECORD OF SUBPROGRAM IS A 


Statement 


Statements are 




CONTINUATION LINE 


termination 


missing or out of 




The first statement is incomplete 
if it contains a continuation code. 




order in source 
program. 
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TABLE G-1 (Cont.) RTE FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 


EXPLANATION 


EFFECT 


ACTION 


91 


RESULT OF RENAME DUPLICATES 
EXISTING EXTERNAL NAME 


ERROR 


Use a name that 
does not duplicate 
an existing ex- 
ternal name. 


92 


RESULT OF RENAME DUPLICATES 
REQUIRED INTRINSIC 


ERROR 


Use a name that 
does not duplicate 
the intrinsic name. 


93 


DATA STATEMENT attempts to 
initialize EMA variable 


ERROR 


Delete DATA STATE- 
MENT or remove 
variable from EMA. 


94 


NAME IN EMA STATEMENT IS NOT 
FORMAL PARAMETER OR APPEARS 
TWICE IN THE STATEMENT 


ERROR 




96 


A BREAK WAS DETECTED 

Operator break causes the 
compiler to be terminated. 


DISASTR 




97 


OPEN OR WRITE ERROR ON 
BINARY FILE 
File does not exist or 
improper security code 
given or there is no room. 


DISASTR 




98 


READ ACCESS ERROR ON 
SCRATCH FILE 

Scratch file access failed. 


DISASTR 




99 


WRITE ACCESS ERROR ON 
SCRATCH FILE 

Scratch file access failed 
(OPEN, WRITE, REWIND). 


DISASTR 
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TABLE G-2. LIBRARY ROUTINE INTRINSIC LIST 



The use of these names as program, subprogram, or common block names may- 
result in a recursive operation if the program, subprogram, or common 
block contains an implicit call to a name that duplicates its own name 
(see Table G-1, Error niomber 85) . 



ABS 


CSGRT 


DMAXl 


lAND 


AINT 


CSIN 


DMINl 


IFIX 


ALOG 


DABS 


DMOD 


INT 


ALOGIO* 


DATAN 


DSIGN 


lOR 


ALOGT 


DATAN2* 


DSIN 


ISIGN 


ATAN 


DATN2 


DSQRT 


ISSW 


CCDS 


DBLE 


DTAN 


NOT 


CEXP 


DCOS 


DTANH 


REAL 


CLOG 


DDINT 


ERRO 


SIGN 


CLRIO 


DEXP 


EXEC 


SIN 


CMPLX 


DLOG 


EXP 


SNGL 


CONJG 


DLOGIO* 


FLOAT 


SQRT 


COS 


DLOGT 


lABS 


TAN 



TANK 



* The five-character equivalent for these names: ALOGO 

DATA2 
DLOGO 



Arguments to these functions (except EXEC) are always passed by value 
even without extra parentheses. 



G-19 



APPENDIX H 
OBJECT PROGRAM DIAGNOSTIC MESSAGES 



During execution of programs referencing Relocatable Library Subroutines , 
error messages may be generated. Error messages are listed together with the 
subroutine involved. 



Mathematical Subroutines 



Error messages are printed in the form: 



program name nn xx 



program name is the name of the user program where the error 

was encountered. 



nn is a number in the range 02 through 14 which 

identifies the subroutine involved in the error 
condition. 

XX is the error type, as follows: 



OF = Integer or Floating Point Overflow 

OR = Out of Range 

UN = Floating Point Undefined 



These error messages can occur when system intrinsics are called or during 
an exponentiation operation. Suppose X and Y are real values and I and J 
are integers. Then, the following relocatable subroutines are called for 
these computations : 

X**y .RTOR (real to real) 

X**I .RTOI (real to integer) 

I**J .ITOI (integer to integer) 

The following is a summary of possible error messages: 

Error Issuing Where Error 

Message Subroutine Used Condition 

02-UN ALOG ALOG X <_ 0 

ALOGT X <_ 0 

CLOG X = 0 

X < 0 



03-UN SQRT SQRT 

DSQRT 



H-1 



Error 
Message 

04- UN 



05- OR 

06- UN 

07- OF 



08-UN 

08- OF 

09- OR 

10- OF 



Issuing 
Subroutine 

. RTOR 



SIN 

.RTOI 
EXP 



. ITOI 
. ITOI 
TAN 
DEXP 



Where 
Used 

.RTOR 

SIN 
CSNCS 
CEXP 
COS 

-RTOI 

EXP 
CEXP 
.RTOR 
CSNCS 

.ITOI 



Error 
Condition 




X = 0, Y £ 0 
X < 0, Y 7^ 0 



X 1 

TT 2 



> 2 



,14 



X = 0, Y < 0 



X * log2e >_ 124 

^1 * "'"°^2^ — "^^^ 

I X * ALOG(X) I >^ 124 

X * log„e > 124 
2 ^2 — 

1 = 0, J ^ 0 

J ^15 J ^15 

I > 2 or I < -2 



14 



X > 2 



X ^ „ -39. „127 
e > (1-2 ) 2 



-39 127 
X > (1-2 2^ ' 



11-UN 



DLOG 



DLOG 
DLOGT 



X £ 0 
X < 0 



12- UN 

13- UN 

14- UN 

15- UN 



.DTOI 
• DTOD 

.CTOI 

DATN2 



.DTOI 

.DTOD 
.DTOR 
.RTOD 

.CTOI 

DATN2 



X = 0, I £ 0 

X = 0, Y <_ 0 
X < 0, Y 7^ 0 



X = 0, 110 
X = Y = 0 



Utility Subroutines 



Subroutine 



Error 



MAGTP 
• SWCH 



Returns on an illegal call. 

Returns if element is out 
of range. 
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During execution of the object program error messages may be printed on the 
output unit by the input/output system supplied for FORTRAN programs. The 
error message is printed in the form: 



FMT ERR nn program name 



is the error code. 



program name 



is the name of the user program. 



The following is a summary of the FMT error codes : 



Error 
Code 



Expl anation 



Action 



01 



02 



FORMAT ERROR: 

a) w or d field does not contain 
proper digits. 

b) No decimal point after w 
field. 

c) w - d <= 4 for E- 
specif ication. 

a) FORMAT specifications are 
nested more than one level 
deep. 

b) A FORMAT statement contains 
more right parentheses than 
left parentheses. 



Irrecoverable error; 
program must be 
recompiled. 



Irrecoverable error; 
program must be 
recompiled. 



03 



a) Illegal character in FORMAT 
statement . 

b) Format repetition factor of 
zero . 

c) FORMAT statement defines 
more character positions 
than possible for device. 

d) List items remain and no con- 
version items are accessible 
in FORMAT statement. 



Irrecoverable error; 
program must be 
recompiled. 



04 



05 



Illegal character in fixed field 
input item or number not right- 
justified in field. 

A number has an illegal form 
(e.g., two Es, two decimal 
points, two signs, etc.). 
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Verify data. 



Verify data. 



APPENDIX I 

HP CHARACTER SET FOR COMPUTER SYSTEMS 



Effect of Control key 



— 000-037B — ^-j-* — 040-077B - 




-140-177B- 





On 
°0 


°1 


Oi 


Oi 


°0 


°1 


1, 

^0 


1, 


BITS 


^^COLUMN 
ROW 


0 


1 


2 


3 


4 


5 


6 


7 


b4 b3 bj b^ 


0 


0 


0 


0 


0 


NUL 


DLE 


SP 


0 


@ 


P 




P 


0 


0 


0 


1 


1 


SOH 


DC1 


I 


1 


A 


Q 


a 


q 


0 


0 


1 


0 


2 


STX 


DC2 




2 


B 


R 


b 


r 


0 


0 


1 


1 


3 


ETX 


DC3 


# 


3 


C 


S 


c 


s 


0 


1 


0 


0 


4 


EOT 


DC4 


$ 


4 


D 


T 


d 


t 


0 


1 


0 


1 


5 


ENQ 


NAK 


% 


5 


E 


U 


e 


u 


0 


1 


1 


0 


6 


ACK 


SYN 


& 


6 


F 


V 


f 


V 


0 


1 


1 


1 


7 


BEL 


ETB 


t 


7 


G 


w 


g 


w 


1 


0 


0 


0 


8 


BS 


CAN 


( 


8 


H 


X 


h 


X 


1 


0 


0 


1 


9 


HT 


EM 


) 


9 


1 


Y 


i 


y 


1 


0 


1 


0 


10 


LF 


SUB 


» 




J 


z 


i 


z 


1 


0 


1 


1 


11 


VT 


ESC 


+ 




K 


[ 


k 


{ 


1 


1 


0 


0 


12 


FF 


FS 




< 


L 


\ 


1 




1 


1 


0 


1 


13 


CR 


GS 






M 


1 


m 


} 


1 


1 


1 


0 


14 


SO 


RS 




> 


N 


A 


n 




1 


1 


1 


1 


15 


SI 


US 


/ 


7 


0 




o 


DEL 



32 CONTROL 
CODES 



Upshifted 
Lower Case 



64 CHARACTER SET - 
96 CHARACTER SET ■ 
128 CHARACTER SET - 



EXAMPLE: The representation for the character "K" (column 4, row 11) is. 

t>7 bg bg b4 b3 ^2 b^ 
BINARY 10 0 10 11 



OCTAL 



1 



1 



* Depressing the Control key while typing an upper case letter produces 
the corresponding control code on most terminals. For example. 
Control- H is a backspace. 
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HEWLETT-PACKARD CHARACTER SET FOR COMPUTER SYSTEMS 



This lable shows HP s implementation ol ANS X3 4-1968 (USASCII) and ANS X3 32-1973 Some devices may substitute 
alternate characters from those shown m this chart (for example Line Drawing Set or Scandanavian font) Consult the manual 
for your device 

Tie let! ana nghi D/!e co u~^"s s'-o/j tr-e ocia' ce'iems " a 1 5 bit Aord when the character occupies bits 8 to 1 4 (left byte) or 0 
to 6 (right byte/ and the rest of the bits are zero To find the pattern ol two characters m the same word, add the two values For 
example. AB produces the octal pattern 040502 (The parity bits are zero in this charl ) 

The octal values 0 through 37 and 177 are control codes The octal values 40 through 176 are character codes 



Decimal 
Value 


Octal Values 


Mnemonic 


Graphic^ 


Meaning 


Left Byte 


Right Byte 


0 


000000 


000000 


NUL 




Nu 


1 


0UU400 


000001 


SOH 




Stan of Heading 


2 


001000 


000002 


STX 




Start of Text 


3 


001400 


000003 


ETX 




End of Text 


4 


002000 


000004 


EOT 




End of Transmission 


5 


002400 


000005 


ENQ 




E-iQU'-y 


6 


003000 


000006 


ACK 




Acknowledge 


7 


003400 


000007 


BEL 




Bell, Attention Signal 


8 


004000 


000010 


BS 




Backspace 


9 


004400 


00001 1 


HT 


i-V 


Horizontal Tabulation 


10 


005000 


000012 


LF 




Line Feed 


1 1 


005400 


00001 3 


VT 




Vertical Tabulation 


12 


006000 


00001 4 


FF 




Form Feed 


13 


006400 


000015 


CR 




Carnage Return 


14 


007000 


000016 


SO 




Shift Out 1 Alternate 


15 


007400 


00001 7 


SI 




Shift In i Character Set 


16 


010000 


000020 


DLE 




Data Link Escape 


17 


U I U^UU 


UOUOe: 1 


DCl 


Ol 


Device Control 1 (X-ON) 


18 


011000 


000022 


DC2 


°2 


Device Control 2 (TAPE) 


19 


01 1 400 


000023 


DC3 


°3 


Device Control 3 (X-OFF) 


20 


012000 


000024 


DC4 


■A 


Device Control 4 (TAPE) 


21 


012400 


000025 


NAK 




Negative Acknowledge 


22 


013000 


000026 


SYN 




Synchronous Idle 


23 


013400 


000027 


ETB 




End of Transmission Block 


24 


014000 


000030 


CAN 




Cance 


25 


014400 


000031 


EM 




End of Medium 


26 


015000 


000032 


SUB 




Substitute 


27 


015400 


000033 


ESC 




Escape^ 


28 


016000 


000034 


FS 




File Separator 


29 


016400 


000035 


GS 


% 


Group Separator 


30 


017000 


000036 


RS 




Record Separator 


31 


017400 


000037 


US 




Unit Separator 


127 


C77400 


000177 


DEL 


m 


Delete Rubout' 



Decimal 
Value 


Octal Values 


Character 


Meaning 


Left Byte 


Right Byte 


32 


020000 


000040 




Space, Blank 


33 




00004 1 


1 


Exclamation Point 


34 


021000 


000042 




Quotation Mark 


35 


021400 


000043 


# 


Number Sign, Pound Sign 


36 


022000 


000044 


$ 


Dollar Sign 


37 


022400 


000045 


% 


Percent 


38 


023000 


000046 


& 


Ampersand, And Sign 


39 


023400 


000047 




Apostrophe, Acute Accent 


40 


024000 


000050 


( 


Lett (opening) Parenthesis 


41 


02440U 


U0UU5 1 


) 


Right (closing) Parenthesis 


42 


025000 


000052 


• 


Asterisk, Star 


43 


025400 


000053 




Plus 


44 


026000 


000054 




Comma, Cedilla 


45 


026400 


000055 


- 


Hyphen, Minus, Dash 


46 


027000 


000056 




Period, Decimal Point 


47 


027400 


000057 


/ 


Slash, Slant 


48 


030000 


000060 


0 






49 


030400 


000061 


1 






50 


031000 


000062 


2 






51 


031400 


000063 


3 






52 


032000 


000064 








53 


032400 


000065 


5 




Digits, Numbers 


54 


033000 


000066 


6 






55 


033400 


000067 


7 






56 


034000 


000070 


8 






57 


034400 


000071 


9 






58 


035000 


000072 




Colon 


59 


035400 


000073 




Semicolon 


60 


036000 


000074 




Less Than 


61 


036400 


000075 




Equals 


62 


037000 


000076 




Greater Than 


63 


037400 


000077 


9 


Question Mark 



Decimal 
Value 


Octal Values 


Character 


Meaning 


Left Byte 


Right Byte 


64 


040000 


000100 


@ 


Commerciai At 


65 


040400 


000101 


A 






66 


(\A 1 Ann 
U4 1 UUU 


nnn i no 
UUU IU<: 


B 






67 




AAA 1 A "5 
UUU 1 U J 


C 






68 




Anm r\A 
UUU 1 U4 


D 






69 




nr^m nc 
UUU 1 UO 


E 






70 




AAA^ AC 
UUUlUb 


F 






71 


043400 


000107 


G 






72 




UUU 1 i u 


H 






73 


044400 


0001 1 1 


1 






74 


r\A c Ann 


(Vim 1 o 

UUU 1 1 c 


J 






75 


r\A nn 


nnm i t 
UUU 1 1 o 


K 






76 


nyicnnn 


nnm i 
UUUl 1 4 


L 






77 


r\ACiAr\c\ 
U40*+UU 


0001 1 5 


M 








Ayi 7nnn 
U4 /UUU 


n An 1 1 c 
UUU 1 1 D 


N 




Upper Case Alphabet 


78 














Capital Letters 


79 




UUU 1 I / 


0 




80 


050000 


000120 


P 






81 


050400 


000121 


Q 






82 


051000 


000122 


R 






83 


051400 


0001 23 


S 






84 


052000 


000124 


T 






85 


052400 


000125 


U 






86 


053000 


0001 26 


V 






87 


053400 


000127 


W 






88 


054000 


0001 30 


X 






89 


054400 


000131 


Y 






90 


055000 


0001 32 


Z 






91 


055400 


000133 


1 


Led (opening) Bracket 


92 


056000 


000134 


\ 


Backslash Reverse Slant 


93 


056400 


000135 


1 


Right (closing) Bracket 


94 


057000 


000136 


t 


Caret Circumflex Up Arrow* 


95 


057400 


000137 




Underline, Back Arrow* 



Decimal 
Value 


Octal Values 


Character 


Meaning 


Left Byte 


Right Byte 


96 


060000 


000140 




Grave Accent^ 


97 


060400 


0001 41 


a 






98 


AC 1 Ani", 

UD 1 UUU 


UUU 1 


b 






99 


AC ^ Ar\r\ 
Ud I 4UU 


UUU 1 'IJ 


c 






100 


AC n A AA 


nnn i /i d 

UUU 1 


d 






101 


AC n A r\ri 
Ub£4UU 


Ann ^ AC, 
UUU 1 


e 






102 


AC nAAA 

UboUUU 


uOUl 4b 


1 






103 


ACT A A A 

UbJ4UU 


UUUl / 


g 






104 


064000 


000150 


h 






105 


064400 


000151 


1 






106 


ncc.n AA 
UbjUUU 


AAA 1 c; o 
UUU 1 


1 






107 


AC C /I A A 


A A A -1 C T 

UUU 1 oJ 


k 






108 


ACC AAA 

UbbUUU 


AAA A a A 
UUUl b4 


1 






109 


UDb**UU 


000 1 5 5 


m 






110 


UD ' UUU 


000 1 56 


n 




Lower Case Letters' 


1 1 1 


ub ' '^uu 


nnm c, 7 

UUU t D / 


0 






1 12 


070000 


000160 


p 






113 


070400 


000161 


q 






1 14 


071000 


000162 


r 






115 


071 400 


0001 63 


s 






116 


072000 


000164 


t 






117 


072400 


000165 


u 






118 


073000 


000166 


V 






119 


073400 


000167 


w 






120 


074000 


0001 70 


X 






121 


074400 


000171 


y 






122 


075000 


0001 72 


2 






1 23 


075400 


0001 73 


{ 


Left (opening) Brace' 


124 


076000 


0001 74 


1 


Vertical Line* 


125 


076400 


0001 75 


> 


Ric 


jht (closing) Brace' 


126 


077000 


000176 




Tilde. Overline' 



Notes 'This is the standard display representation The software and hardware in your system determine if the control code is 
displayed, executed, or ignored Some devices display all control codes as ' ' , @ . or space 

'Escape is the first character ol a special control sequence For example ESC followed by J ' clears the display on a 2640 
terminal 

'Delele may be displayed as , @ or space 

*Normally, the caret and underline are displayed Some devices substitute the up arrow and back arrow 



'Some devices upshift lower case letters and symbols ( thiough - ) to the corresponding upper case character (@ through 
A ) For example, the left brace would be convened to a left bracket 



RTE SPECIAL CHARACTERS 

Mnemonic Octal Value 



SOH (Control A) 
EM (Control Y) 
BS (Control H) 

EOT (Control D) 



1 

31 
10 



Use 

Backspace (TTY) 

Backspace (2600) 

Backspace (TTY, 2615, 2640, 2644, 
2645) 

End-of-file (TTY 2615, 2640, 2644, 
2645) 
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APPENDIX J 
RTE FORTRAN IV OPERATIONS 



INTRODUCTION 



This Appendix contains information pertinent to RTE FORTRAN IV operations in 
an RTE operating system. This information explains the on-line loading of the 
compiler; the capabilities and invocation procedures of the compiler; and 
possible error messages to the operator that may arise during compiler 
operations. 

RTE FORTRAN IV is a problem-oriented programming language that is translated 
by a compiler into relocatable object code. Source programs are accepted 
from either an input device or an FMGR file. Error messages, list output, 
and relocatable object code are stored in FMGR files or output to devices. 
The object code produced by the compiler can be loaded by the RTE Relocating 
Loader and then executed using the RU command. When an RTE FORTRAN IV 
program has been completely debugged, the RTE Relocating Loader can make it 
a permanent part of the RTE system if desired. 

The RTE FORTRAN IV compiler is a segmented program that executes in the back- 
ground under control of RTE-IV. It consists of a main program and overlay 
segments, and normally resides in the protected area of the disc which has 
been reserved for such programs during the generation process. 



The compiler can be loaded on-line using the RTE-IV Relocating Loader. The 
page size of the program should be increased to give the compiler room for 
its symbol table. The minimum recommended size is thirteen pages, with 
fourteen or more preferred. The following example presents a typical RTE-IV 
on-line load of the RTE FORTRAN-IV compiler. %CLIB need be searched only if 
it is not in the system library or if it contains modules that should be used 
instead of system library modules. 



:RU,LOADR 




/LOADR 


SZ,14 




/LOADR 


RE,%FTN4 


*main 


/LOADR 


RE,%FFTN4 


*helper module 


/LOADR 


SE,%CLIB 


* search compiler library 


/LOADR 


RE,%0FTN4 


* first segment 


/LOADR 


SE,%CLIB 




/LOADR 


RE,%1FTN4 


* second segment 


/LOADR 


SE,%CLIB 




/LOADR 


RE,%2FTN4 


* third segment 



LOADING THE RTE FORTRAN-IV COMPILER ON-LINE 



continue similarly for all segments 



/LOADR: 
/LOADR: 



SE,%CLIB 
EN 



*last search of library 
*end LOADR operations 
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The following example presents a typical on-line load of the FORTRAN-IV 
compiler for an RTE-II or RTE-III system. 



:LG, 10 

:MR,%FTN4 

:MR,%FFTN4 

:MR,%0FTN4 

:MR,%1FTN4 

:MR,%2FTN4 

continue similarly for all segments 

:RU,LOADR,99,6, ,1 

FORMAT OF AN RTE FORTRAN IV PROGRAM 

Several statements pertinent to the RTE implementation of FORTRAN are 
described in the following pages. These statements define compiler options 
and give other information necessary for the compiler's operation. 

Fortran Control Statement 

PURPOSE: To describe the output to be produced by the RTE FORTRAN IV 
compiler. 

FORMAT: FTm ,p^,p^,p^,p^,p^,p^,p^,p^,pg 

Pj_~Pq optional parameters, in any order, chosen from the 

parameters in Table J-1. 

TABLE J-1 RTE FORTRAN IV OPERATIONS 



Parameter Meaning 



L List output. A listing of the source language program is 

output to the list namr as the source program is read. 

A Assembly listing. A listing of the object program in assembly 

language is output to the list namr. 

T Symbol table listing. A listing of the symbol table for each 

main or subprogram is output to the list device. If a U follows 
the address of a variable, that variable is undefined. An A or 
M specification also produces a symbol table listing. 

M Mixed listing. A listing of both the source and object program 

is produced. Each source line is included with the object code 
it generated in the compilation process. This listing is pro- 
duced during both the source code and the intermediate code in 
order for this parameter to be used. If both M and A are speci- 
fied, M is used. Source code lines are passed to the inter- 
pass file as they are encountered. This means that in the mixed 
listing, object code will not necessarily immediately follow 
the source code that produced it (see the sample listing in 
Appendix F) . 

C Cross reference symbol table listing. A cross reference listing 

of symbols and labels used in the source program is produced. 
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TABLE J-1 (cont.) RTE FORTRAN IV OPERATIONS 



Parameter 


Meaning 


F 


Perform page eject. Usually, terminal driver software 
will replace a page eject function code with two line 
space function codes to keep text displayed on a CRT 
terminal screen. If you are using another type of 
terminal (such as a teleprinter) , you may specify F to 
perform a normal page eject. If the output namr is a 
line printer, this parameter is ignored and normal page 
ejects are done. 


D 


Compile debug lines. The character D specified in column 
position 1 of a source program line will cause such a 
line to be treated as a comment by the compiler . To cause 
compilation of these lines, specify D as a control state- 
ment parameter. 


n 


Error routine n supplied, n is a decimal digit (1-9) which 
specifies an error routine , ^ ERRn. The error routine is 
called when an error occurs in the ALOG,SQRT, .RTOT,SIN, 
COS, . RTOI,EXP, . ITOI , or TAN. "The ERRn routine must be 
written in Assembler. The calling sequence for ERRn must 
be the same as ERRO, as listed in the DOS/RTE Relocatable 
Library Reference Manual (24998-90001)." If this option 
does not appear, the standard library error routine, ERRO 
is used. 


B 


This option is ignored. See the FORTRAN invocation command 
sequence for information about producing binary output 
files. 


X 


Double precision is three words (default) . 


Y 


Doiable precision is four words. The default setting may be 
changed to four words at generation time. 


Q 


Includes the approximate relocatable address of each state- 
ment on a listing. Each line of the listing becomes 6 
characters longer. If the Q option is specified, the L 
option is implied. 



RTE FORTRAN IV PROGRAM STATEMENT 



The program statement is a source code statement defining the name and 
optionally the type, priority, and time values of the module in which it 
appears. 

The program statement must be the first non-comment statement in a module 
without the extended memory area (EMA) . In a module with EMA, the EMA 
directive must be the first non-comment statement, and the program statement 
must be the second non-comment statement. 

In the absence of a PROGRAM statement, the program name defaults to ftn. , and 
the type, priority, and time parameters default as specified below. 
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FORMAT: 



PROGRAM name, (type, pri, res, mult, hr,min, sec, msec) 

where: 

name is the name of the program (and its entry point) . 

type is the program type (set to 3 for main program, or 7 
for subroutines, if not given) . 

0 = system program 

1 = memory- resident 

2 = real-time disc-resident 

3 = background disc-resident 

4 = background disc-resident without Table Area II access 

5 = segment 

6 = illegal 

7 = library, utility subroutines (appended to calling 

program) 

8 = if program is a main, it is deleted from the system 

-or- 

8 = if program is a subroutine, then it is used to satisfy 
any external references during generation. However, it 
is not loaded in the relocatable library area of the 
disc . 

NOTE: In some cases the primary type code (i.e. types 1 through 
8) may be expanded by adding 8,16, or 24 to the number. 
These expanded types allow features such as access to 
real-time COMMON by background programs, and access to 
SSGA. 



pri 


is 


the priority (1-32767, set to 99 if not given) 


res 


is 


the resolution code 


mult 


is 


the execution multiple 


hr 


is 


hours 


min 


is 


minutes 


sec 


is 


seconds 


msec 


is 


tens of milliseconds 



COMMENTS: The parameters type through msec must appear in the order shown. 

Even though the parameters are optional, if any one parameter is 
given, those preceding it must appear also. For example: 

PROGRAM name (,90) 
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COMMENTS: is illegal and will be rejected by the system. The only method of 
(cont.) legally defaulting the parameters is shown below: 



PROGRAM name 
PROGRAM name (3, 90) 

All parameters are set to 0 if not specified with the following 
two exceptions: 

a. The priority parameter pri is set to 99, the lowest priority 
recognized by FORTRAN. 

b. The program type parameter type is set to 3 for a main pro- 
gram, or 7 for a subroutine. 

RTE FORTRAN IV can also pass a comment line to the loader, via 
binary record. The following format should be used: 

PROGRAM name (p , . . . ,p ) , comment 

1 o 

or: 

PROGRAM name,p ,p , . , . ,p , comment 
12 8 

where : 

name and p^-p^ are as defined above 
1 o 

comment = a comment line to be passed to the loader. All 
characters after the comma (,) including blanks 
are passed. The coniment is limited to 84 
characters in length. 

In the first format shown above, one or more of the parameters 
may be omitted while still retaining the comment. In the second 
format, all parameters must be accounted for at least by the 
presence of a comma. Data after the program name is optional. 



COMPILER INVOCATION 

PURPOSE: To schedule the RTE FORTRAN IV compiler. 
FORMAT: 



,FTN4, source input[ ,list output[ , binary output 

[/line count [, options]]]] 

source input Name of an FMGR file or a logical unit number 

of the device containing the FORTRAN source code; 
this entry must conform to the format required 
by the FMGR namr parameter. 
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*0N 
*RU 
:RU 



source input If an interactive device is specified, FTN4 will 
(cont.) print a right bracket (] ) on the device as a 

prompt. It will then accept input a line at a 
time and issue another prompt until an END 
statement is entered. 

list output Choose one of the following: 

- (minus symbol) 
FMGR file name 
logical unit number 
null (omitted) 

If the minus symbol is specified, and the source 
file name begins with an ampersand, the ampersand 
is replaced with an apostrophe and the remaining 
source file name characters are used for the list 
file name. The list file is forced to reside on 
the same cartridge (cartridge reference code) as 
the source file. For example: 

&FIL1 source file name 

'FILl list file name 

If an FMGR file name is specified, it must con- 
form to the format required by the FMGR namr 
parameter. The list file is created if it does 
not exist. If the file does exist, the fir.st 
character in the file name must be an apostrophe; 
otherwise, an error results. 

If a logical unit number is specified, the listed 
output is directed to that logical device. 

If this parameter is omitted, the user's terminal 
is assumed. Further, if subsequent parameters 
are specified, the comma must be used as a 
parameter placeholder. 

binary output Choose one of the following: 

- (minus symbol) 
FMGR file name 
logical unit number 
null (omitted) 

If the minus symbol is specified, and the source 
file name begins with an ampersand, the ampersand 
is replaced with a percent symbol and the remain- 
ing source file name characters are used for the 
binary file name. This binary file is forced to 
reside on the same cartridge (cartridge reference 
code) as the source file. For example: 

&FIL1 source file name 

%FIL1 binary file name 
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binary output If an FMGR file name is specified, it must con- 
(cont.) form to the format required by the FMGR namr 

parameter. The binary file is created if it does 
not exist. If the file exists, it is necessary 
that: 

a. the first character of the file's name be 
a percent sign (%) . 

b. the existing file be of the type specified 
in the namr parameter (if the file type is 
not declared in namr, the file's type must 
be Type 5, relocatable binary) . 

If the above conditions are not met, a compiler 
error will result. 

If a logical unit number is specified, the binary 
output is directed to that logical device. 

If this parameter is omitted, no binary relocat- 
able code is generated. Further, if the subse- 
quent parameter is specified, the comma must be 
used as a parameter placeholder. 



line count 



options 



EXAMPLES: 

*RU , FTN4 , &PROGA , - , ■ 



A decimal number which defines the number of 
lines per page for the list device. 

Specification of this parameter is optional. If 
it is omitted, 56 lines per page are assumed. If 
a number less than 10 is specified, the compiler 
treats it as effectively infinite. The line count 
must be in the range 10 < line count < 999. 

Up to seven characters that select control 
function options. No commas are allowed within 
the option string. These characters are: A, C, 
D, F, L, M, T and Q. If specified, these options 
replace (override) the character options declared 
in the FTN4 control statement (see Appendix B) . 
These options do not override the FTN4 control 
statement numeric options. 

Characters other than the above are ignored, except 
that any option specified in this parameter position 
negates all character options declared in the FTN4 
control statement. 

NOTE: The X and Y options are intentionally omitted, 
as they have no meaning in this option list. 



Schedules RTE FTN4 to compile source file &PROGA. Listed output is 
directed to list file 'PROGA and binary relocatable code is directed 
to binary file %PROGA. The number of lines per list file page defaults 
to 56. 



:RU,FTN4,&FIL1, 'LIST 

Schedules RTE FTN4 to compile source file &FIL1. Listed output is 
directed to list file 'LIST, No binary relocatable code is generated. 
The number of lines per list file page defaults to 56. 



:RU,FTN4,&ABCD 

Schedules RTE FTN4 to compile source file &ABCD. Listed output defaults 
to the user's terminal. No binary relocatable code is generated. The 
number of lines per list file page defaults to 56. 



: RU , FTN4 , &AAAA , - , - , 28 

Schedules RTE FTN4 to compile source file &AAAA. Listed output is 
directed to list file 'AAAA. Binary relocatable code is directed to 
binary file %AAAA. The number of lines per list file page is 28. 



;RU,FTN4,SSFIL,-,-, ,MTD 

Schedules RTE FTN4 to compile source file &SFIL. Listed output is 
directed to list file 'SFIL. Binary relocatable code is directed to 
binary file %SFIL. The number of lines per list file page defaults 
to 56. A mixed listing and a symbol table will be produced, and 
debug lines will be compiled. 



:RU,FTN4,&SFIL,-,-, ,X 

This command string results in the same action as the previous example , 
except that only errors will be listed and debug lines will not be 
compiled. The character X in the options parameter position is ignored, 
but it does negate any character options that may have been declared 
in program's FTN4 control statement. 



RTE-M OPERATING SYSTEM 



RTE FORTRAN IV invocation command syntax for RTE-M: 
*0N 

,FTN4 [ ,fi ,le,nm] [,line count] 

*RU 



or, 



*0N 
*RU 



,FTN4 [,lu number] [,,,line count] 
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fi,le,nm The name of a file containing the input, output, and list 

file responses for the compiler. This file name is specified 
as parameters 1, 2, and 3 with two file name characters per 
parameter. If these parameters are omitted, the file 
responses are assumed to be from the session console. 



line count A decimal number which defines the number of lines per page 

for the list file. This entry is specified as parameter 4. In 
the alternate syntax shown above, the three leading commas 
are required as parameter position placeholders. If this 
parameter is omitted, 56 lines per page are assumed. The line 
count must be in the range 10 < line count < 999. 

lu number The logical unit number of a device from which the input, 

output, and list file responses to the compiler will be 
entered. This value is specified as parameter 1. If this 
parameter is omitted, the file responses are assximed to be 
from the session console. 



When the RTE FORTRAN IV compiler is executed, it expects to obtain the input, 
output, and list file information from a named file, a logical device, or 
(by default) from the session console depending on the parameters passed 
in the invocation command. If these file responses are expected from the 
session console (or other keyboard/display device) , the compiler will display 
separate requests in the form: 

INPUT ? 
OUTPUT ? 
LIST ? 



Enter a FMGR namr in response to each request. Parameters beyond the cartridge 
reference number are ignored. 



EXAMPLES: 



*RU,FTN4 

Schedules RTE FTN4 to compile a program for which the input, output, 
and list file names will be entered from the session console. The list 
file will be formatted to 56 lines per page. 



*ON,FTN4,7, , ,28 

Schedules RTE FTN4 to compile a program for which the input, output, 
and list file names will be entered from the device associated with 
logical unit number 7. List file output will be formatted with 28 
lines per page. The commas appearing between the logical unit number 
and the list file line count are placeholders for null parameters. 
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EXAMPLES: (Cont.) 



*RU,FTN4,RE,SP,NS 

Schedules RTE FTN4 to compile a program for which the input, output, 
and list file names will be obtained from a file named RESPNS. The 
list file will be formatted with 56 lines per page. 

MESSAGES TO OPERATOR 

More than one source tape can be compiled into one FORTRAN program by leaving 
off the $END statement on all but the last source tape. When the end of each 
source tape is encountered (end of tape or EOT condition) , RTE driver DVROO 
can interpret it in two ways. An EOT can set the tape reader down (make it 
inactive) , or not set it down. The action depends on how DVROO subchannels 
were configured during generation. In any case, an EOT does not suspend the 
FORTRAN compiler. Therefore, it is recommended that when compiling multiple 
tapes, DVROO be configured to set the tape reader down on EOT (see the LU 
command) . For more information, refer to the DVROO manual (29029-95001) . 

If an end of tape causes the tape reader to be set down, the RTE system will 
output a message to the operator: 

I/O ET L lu E eqt S sub 

The operator must place the next source tape into the tape reader and set 
the tape reader up with the UP command. 

UP , eqt 

where eqt is the number reported in the above message. 

If an EQT does not cause the tape reader to be set down, the RTE system does 
not output ant message and the compiler is not suspended. 

RTE FORTRAN IV MESSAGES 

At the end of the compilation (when the compiler detects the $END statement) , 
the following message is printed: 

$END FTN4: nn DISASTRS nn ERRORS nn WARNINGS 

where "nn" will be the number of occurrences of each problem type or "NO" if 
there are no occurrences of a particular type. 

All error messages are output to the list output file or device unless 
there is an error in the list output specification itself. There are two 
possibilities: 



J-10 



If the operator incorrectly specified the list destination. The following 
message will appear on the log list device: 

/FTN4: ACCESS FAILED ON LIST 

If the operator incorrectly specified both the source input and list output 
parameters, the following message will appear on the log list device: 

/FTN4: ACCESS FAILED ON LIST AND SOURCE 



EXAMPLE RTE FORTRAN IV PROGRAM 

FTN4,L,T 

PROGRAM PROGA,3,90 

WRITE (1,100) 
100 FORMAT (IX, "HELLO") 

END 

END$ 

If the above source code were stored into a FMGR file name &PROGA, it could 
be compiled with the following command (among others) : 

*RU , FTN4 , &PROGA, 6 , %PROGA 

This command would compile the source code in file &PROGA. Error messages, a 
program listing, and a symbol table listing would be output to logical unit 
6 since L and T were specified in the control statement of the source 
program. The relocatable object code would be stored in the FMGR file %PROGA. 



SPECIAL USAGE NOTE 

In the event that a FORTRAN source file is compiled under a RTE Operating 
System (e.g. RTE-IVB) that supports the four-word (Y) compiler option for 
double precision data, transportation of the relocatable file to a HP 2100 
with FFP for execution is not allowed unless the software versions of .DFER 
and .XFER are loaded. 
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INDEX 



A 



Actual argument 6-7,9-5 

Addition 3-1 

Alphanumeric character 1-2 

ANSI FORTRAN IV D-2 

Argument, actual 6-7,9-5 

Argument , dummy 9-5 

Arithmetic assignment 

s tatement 5-1 

Arithmetic element 3-1 

Arithmetic expression 3-1 

Arithmetic IF 6-5 

Arithmetic operator 3-1 

Array 2-12,8-1 

Array declarator 4-1 

Array element 2-12 

Assignment statement, 

arithmetic 5-1 

Assignment statement, logical. . . .5-3 

ASSIGN TO 5-4 

Assigned GO TO 6-3 

A-Type conversion 8-21 



B 

BACKSPACE 7-8 

Blank character...... 1-2 

Blank common.. 4-5 

Block data subprogram 9-20,9-5 

BLOCK DATA statement 9-20 

c 

CALL 6-7 

CARRIAGE CONTROL 8-29 

Char ac ter , alphanumer ic 1-2 

Character, blank 1-2 

Character, special 1-3 

Character set 1-2,1-1 

Comment line 1-3 

COMMON, blank 4-5 

ICOMMON,EMA 4-5 

COMMON, labeled 4-5 

COMMON, named 4-5 

Compiler diagnostics G-1 

Compiler environment xiv 

Compiler purpose xiii 

Compiler synopsis xiii 

Complex constant 2-7 



Complex conversion 8-17 

Complex data format A- 5 

Computed GO TO 6-4 

Constant, complex 2-7 

Constant, double precision 2-6 

Constant, Hollerith 2-9 

Constant, integer 2-4,2-9 

Constant, logical 2-8 

Constant, octal 2-10 

Constant, real 2-5,2-7 

CONTINUE 6-9 

Continuation line 1-4 

Control statement, FORTRAN J- 2 

Control variable 5-12,7-2 

Conversion, A-Type 8-21 

Conversion, complex 8-17 

Conversion, D-Type 8-16 

Convers ion , E-Type 8-10 

Conversion, F-Type 8-12 

Convers ion , G-Type 8-14 

Conversion, I-Type 8-6 

Conversion, K-Type 8-19 

Conversion, L-Type 8-18 

Conversion, O-Type 8-19 

Convers ion , R-Type 8-23 

Conversion, X-Type 8-27 

Conversion, @-Type 8-19 

Cross Reference Symbol Table E-1 

D 

Data 4-14,2-13 

Data item 7-9 

Data item delimiter 7-9 

Debug line 1-4, J- 2 

Declarator, array 4-1 

Delimiter, data item 7-9 

Descriptor, field 8-3 

Diagnostic error messages. .. .G-1, H-1 

Digits 1-2 

DIMENSION 4-4 

DISASTR, error G-1 

Division 3-1 

DO 6-12 

DO- implied list 7-2 

Double precision constant 2-6 

Double precision data format 

3- word A- 3 

4- word A-4 

Dummy argument 9-5 

D-Type conversion 8-16 
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E 

Editing, wH 8-25 

Editing, 8-26 

Element, arithmetic 3-1 

Element, array 2-12 

Element, logical 3-5 

EMA directive 4-7 

EMA statement 4-11 

END 6-8,6-16 

ENDFILE 7-8 

End job statement, FORTRAN B-1 

End line 1-4 

EQUIVALENCE 4-12 

ERROR, COMPILER DIAGNOSTICS G-1 

ERROR, OBJECT PROGRAM MESSAGES H-1 

E-Type conversion 8-10 

Evaluating expressions 3-3 

Executable program 1-1 

Executing FTN4 J-5 

Exponentiation 3-1 

Exponentiation of 

arithmetic elements 3-3 

Expression 3-1 

Expression, arithmetic 3-1 

Expression, logical 3-4 

Expression, relational 3-5 

Expression, subscript 2-12 

Extended Memory Area 4-7 

EXTERNAL 4-2 

External files 7-1 

F 

Factor 3-2 

Factor , scale 8-8 

Field descriptor 8-3 

Field separator 8-28 

File definition xiii 

Files, external 7-1 

FORMAT 8-2,1-5,7-1 

Format specification 8-1,7-3 

Format, complex data A-5 

Format, double precision data....A-3 

Format, Hollerith data A-6 

Format, integer data A-1 

Format, logical data A-6 

Format, real data A-2 

Formatted READ 7-4,8-1 

Formatted records 7-3,8-1 

Formatted WRITE 7-5,8-1 

FORTRAN control statement J-2 

FORTRAN end job statement B-1 

FORTRAN IV library function 9-7 

FORTRAN IV job deck B-1 

Free field input 7-9,7-4,8-1 



F-Type conversion 8-12 

Function 9-3 

Function, statement 9-6 

Function subprogram 9-12,9-3,1-1 

G 

GO TO, assigned 6-3 

GO TO, computed 6-4 

GO TO, unconditional 6-2 

G-Type conversion 8-14 

H 

Hollerith constant 2-9 

Hollerith data format A-6 

I 

IF, arithmetic 6-5 

IF, logical 6-6 

IMPLICIT statement 4-I6 

Initial line 1-4 

Initial parameter 6-12 , 7-2 

Input/output list 7-2,8-1 

Input/output unit 7-1 

Input, free field 7-9,7-4,8-1 

Integer constant 2-4,2-9 

Integer data format A-1 

Invocation of compiler J-5 

Item, data 7-9 

I- Type conver s ion 8-6 

J 

Job deck, FORTRAN IV B-1 

K 

K-Type conversion 8-19 

L 

Label, statement 1-5 

Labeled common 4-5 

Letter 1-2 

Library Function, FORTRAN IV 9-7 

Lines 1-3 

Line, comment 1-3 

Line, continuation 1-4 

Line, debug 1-4, J-2 

Line, end 1-4 

Line, initial 1-4 

Line, program 1-3 
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List, DO- implied 7-2 

List, input/output 7-2,8-1 

List, simple 7-2 

Loading FORTRAN- IV J-1 

Logical assignment statement. ... 5-3 

Logical constant 2-8 

Logical data format A-6 

Logical element 3-5 

Logical expression 3-4 

Logical IF 6-6 

Logical operator 3-4 

Logical unit 7-1 

L-Type conversion 8-18 

M 

Magnetic tape unit. 7-8 

Main program 1-1,1-6 

Messages J-10 

Mixed mode 4-14 

Multiplication 3-1 

N 

Named COMMON 4-5 

Name, symbolic 1-5,2-1 

o 

Octal constant 2-10 

Operator , arithmetic 3-1 

Operator, logical 3-4 

Operator, relational 3-6 

0-Type conversion 8-19 

P 

Parameter, initial 6-12,7-2 

Parameter, step-size 6-12,7-2 

Parameter, terminal 6-12,7-2 

Parentheses , 3-3 

PAUSE , 6-11 

Primary 3-1 

Program, executable. 1-1 

Program line , 1-3 

Program, main .....1-1,1-6 

PROGRAM statement 9-1, J-3 

Program unit 1-2 

R 

READ, formatted 7-4,8-1 

READ, unformatted 7-6,8-1 

Real constant 2-5,2-7 

Real data format A-2 

Record, formatted 7-3,8-1 



Record terminator 7-10 

Record, unformatted 7-3,8-1 

Relational expression 3-5 

Relational operator 3-6 

RELOCATABLE SUBROUTINES xiv,9-ll 

Repeat specification 8-5 

RETURN 6-8 

REWIND 7-8 

RTE special characters 1-4 

R-Type conversion 8-23 

s 

Scale factor 8-8 

Separator, field 8-28 

Simple list 7-2 

Simple variable 2-11 

Special character 1-3 

Specification, format 8-1,7-3 

Specification, repeat 8-5 

Statement 1-5 

Statement function 9-6 
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Si±iroutine 9-4 , 9-17 
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Subscript 2-13 
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Term 3-2 
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INDEX- 3 



Unit, input/output 7-1 

Unit, logical 7-1 

Unit , program 1-2 

Unlabeled COMMON 4-5 
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Variable, control 6-12,7-2 
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Variable, subscripted 2-14 
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@-Type conversion 8-19 
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Cable: BLUESTAR 

A,U 

Blue Star Ltd 
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Bkie Star Ltd. 
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BERCA Indonesia P.T 
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JAKARTA 
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BERCA Indonesia P.T. 
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17lh Ftoor 

Ji Uedan Uerdeka Selalan 17 
JAKARTA-PUSAT 

Tel: 21-344-181 
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Hewlett-Packard Ireland Ltd. 

82/83 Lower Leeson Street 

DUBUN 2 

Tel: (1) 60 88 00 

Telex: 30439 

A,CH,CM,CS,E,M,P 

Cantac Senttces Lid. 

KImorsRoBd 

Artane 

DUBIM5 

Tel: m 351820 

Telex: 30439 

U 

ISRAEL 

Bdan Electronic InstnmenI Ltd. 
P.0.BOX 1270 
JERUSALEK 91000 
16, Ohatav St. 
JBWSUIH 94467 
Tel: S33 221, 553 242 
Telex: 25231 AB/PAKOD L 
A 

Electronics Englnewing DMskm 
Motorola Israel Ltd. 
16 KremenetskI Street 
P.O. 80x25016 
TEL-AmSTeU 
Tel: 3-338973 
Telex: 33569 UoW IL 
Cable: BASTEL Tel-AvIv 
CH,CU,CS,E,U,P 

ITALY 

Hewlett-Packard Itallana S.p.A 

Traversa 99C 

Via Ghjik) Petroni, 19 

1-70124 BAM 

Tel: (080) 41-07-44 

M 

Hewlett-Packard ItaHara S.p.A. 

Via Martin Luttier King, 38/111 

1-40132 BOLOGNA 

Tel: (051) 402394 

Telex: 511630 

CH,E,MS 

Hewlett-Packard Itallana S.p.A. 
Via Principe Nicola 43G/C 
1-95126 CATANU 
Tel: (095) 37-10-87 
Telex: 970291 
C,P 

Hewlett-Packard ItaKana S.p.A. 

Via Q. Oi Vittork) 9 

1-20063 CERNUSCO SUL NAVI6U0 

Tel: (2) 903691 

Telex: 334632 

A,CH,CM,CS,E,MP,P 

Hewlett-Packard Itallana S.p.A. 

Via Nuova San Rocco a 

Capodimonte, 62/A 

1-80131 NAPLES 

Tel: (081) 7413544 

Telex: 710698 

A,CH,E 

Hewlett-Packard Italiana S.p.A. 
Viale G. Modugno 33 
1-16156 GENOVA PEGU 
Tel: (010) 68-37-07 
Telex: 215238 
E,C 

Hewlett-Packard Italana S.p.A. 

Via Turazza 14 

1-35100 PADOVA 

Tel: (049) 664888 

Telex: 430315 

A,CH,E,MS 

Hewlett-Packard Itallana S.p.A. 
Vale C. Pavese 340 
1-00144 ROMA 
Tel: (06) 54831 
Telex: 610514 
A,CH,CM,CS,E,MS,P' 



Hewlett-Packard Italiana S.p.A. 
Corso Svizzera, 184 

1- 10149 TOMNO 
Tel: (Oil) 74 4044 
Telex: 221079 
CH,E 

JAPAN 

Yokogawa-Hewlett-Paokard Ltd. 
152-1, Onna 

000 ATSUGI, Kanagawa, 243 
Tel: (0462) 28-0451 
CM,C',E 

Yokogawa-Hewlett-Packard Ltd. 
Towa Building 

2- 3, Kaigan-dori, 2 Chome Clwo-ku 
KOBE, 650 

Tel: (078) 392-4791 
C,E 

Yokogawa-Hewlett-Packard Ltd. 
Kumagaya Asalil 82 BIdg 

3- 4 Tsukuba 
KUMAGAYA, Saitama 360 
Tel: (0485) 24-6563 
CH,CM,E 

Yokogawa-Hewlett-Packard Ltd. 
Asahl Sliinbun Daltehl Seimel BMg. 

4- 7, Hanabala-clio 
KUMAM0T0,860 
Tel: (0963) 54-7311 
CH,E 

Yokogawa-Hev^tt-Packard Ltd. 

Shin-Kyoto Center BIdg. 

614, HIgashi-SliiokojI-cho 

Karasuma-Nishilru 

Shiokoji-dori, Shirtiogyo-ku 

KYOTO, 600 

Tel: 075-343-0921 

CH,E 

Yokogawa-Hewlett-Packard Ltd. 

MIto Mitsui BIdg 

4-73, Sannomaru, 1 Cliome 

MITO, Ibaragi 310 

Tel: (0292) 25-7470 

CH,CM,E 

Yokogawa-Hewlett-Packard Ltd. 

Sumitomo Seitnei 14-9 BUg. 

Meieki-Minami, 2 Cliome 

Nakamura-ku 

NAGOVA, 450 

Tel: (052) 571-5171 

CH,CM,CS,E,MS 

Yokogawa-Hewlett-Packard Ltd. 
Cliuo BIdg., 

4-20 Nishinakajima, 5 Ctiome 

Yodogawa-ku 

OSAKA, 532 

Tel: (06)304-6021 

Telex: YHPOSA 523-3624 

A,CH,CM,CS,E,MP,P* 

Yokogawa-Hewlett-Packard Ltd. 

27-15, Yabe, 1 Chome 

SAGAMIHARA Kanagawa, 229 

Tel: 0427 59-1311 

Yokogawa-Hewlett-Packard Ltd. 

Daitohi Seimel BIdg. 

7-1, NishI Shinjuku, 2 Chome 

Shlnjuku-ku,TOKYO 160 

Tel: 03-348-4611-5 

CH,E 

Yokogawa-Hewlett-Packard Ltd. 
29-21 Takaldo-Higashi, 3 Chome 
Suginami-ku TOKYO 168 
Tel: (03) 331-6111 
Telex: 232-2024 YHPTOK 
A,CH,CM,CS,E,MP,P* 
Yokogawa-Hewlett-Packard Ltd. 
DaiichI Asano BulUing 
2-8, Odori, 5 Chome 
UTSUNOMIYA, Tochlgi 320 
Tel: (0286) 25-7155 
CH,CS,E 



Yokogawa-Hewlett-Packard Ltd. 

Yasuda Seimel Nishiguchi BUg. 

30-4 Tsuruya-cho, 3 Chome 

Y0K0HAMA221 

Tel: (045) 312-1252 

CH,CM,E 

JORDAN 

Uouasher Cousins Company 

P.O. Box 1387 

AmUK 

Tel: 24907, 39907 
Telex: 21456 SABCO JO 
CH,E,M,P 

KENYA 

ADCOULtd., Inc., Kenya 

P.CBox 30070 

NAIROBI 

Tel: 331955 

Telex: 22639 

E,U 

KOREA 

Samsung Electronics Computer 
Division 

76-561 Yeoksam-Dong 
Kwangnam-Ku 
C.P.O. Box 2775 
SEOUL 

Tel: 555-7555, 555-5447 
Telex: K27364 SAUSAN 
A,CH,mCS,E,U,P 

KUWAIT 

Al-Khaktya Trading S Contracting 

P.O. Box830Safal 

KUWAIT 

Tel: 42-4910, 41-1726 
Telex: 22481 Areeg kl 
CH,e,U 

Photo S Cine Equipment 
P.O. Box270Salat 
KUWAIT 

Tel: 42-2846, 42-3801 
Telex: 22247 Matin kt 
P 

LEBANON 

G.M. Dolmacfian 

AchraHeh 

P.O. Box 165. 167 

BEimiT 

Tel: 290293 

MP-' 

LUXEMBOURG 

Hewlett-Packard Belgium S.A./N.V. 

Blvd de la Woluwe, 100 

Woluwedal 

B-1200 BRUSSELS 

Tel: (02) 762-32-00 

Telex: 23-494 patoben bru 

A,CH,CM,CS,E,MP,P 

MALAYSIA 

Hewlett-Packard Sales (Malaysia) 
Sdn. Bhd. 

1st Floor, Bangunan British 
Amertaan 

Jaian Semantan, Damansara Heights 

KUALA LUMPUR 23-03 

Tel: 943022 

Telex: MA31011 

A,CH,E,M,P* 

Protel En^neering 

P.CBox 1917 

Lot 6624, Section 64 

23/4 Pending Road 

Kuclmg, SARAWAK 

Tel: 36299 

Telex: MA 70904 PROTEL 
Cable: PROTELENG 
A,E,M 



MALTA 

PMip Toledo Ltd 
Nolabile Rd. 

imm 

Tel: 447 47, 455 66 
Telex: Media MW 649 
P 

MEXICO 

Hewlett-Packard Mexicana, S.A. 
de C.V. 

Av. Periferico Sur No. 6501 
Tepepan, Xochimlteo 
MEXK;0D.F. 16020 
Tel: 676-4600 

Telex: 17-74-507 HEWPACK MEX 
A,CH,CS,E,MS,P 

Hewlett-Packard Mexicana, S.A. 
de C.V. 

Ave. Colonia del Vaile #409 
Col. del Valle 

Munlcipio de Garza Garcia 

MONTERREY, N.L. 

Tel: 78 42 41 

Telex: 038 410 

CH 

EaSA 

Jos6 Vasconcelos No. 218 

Col. Condesa Deleg. Cuauht6moc 

KXICOD.F. 06140 

Tel: 553-1206 

Telex: 17-72755 ECE ME 

M 

MOROCCO 

Dolbeau 

81 njeKaralcN 

CASABIMKA 

Tel: 3041-82, 3068-38 

Telex: 23051, 22822 

E 

Gerep 

2 rue d'AgadIr 

Boile Postale 156 

CASABLANCA 

Tel: 272093, 272095 

Telex: 23 739 

P 

NETHERLANDS 

Hewlett-Packard Nederland B.V. 
Van Heuven Goedhartlaan 121 
NL 1181KKAMSTELVEEN 
P.O. Box 667 
NL1180ARAMSTELVEEN 
Tel: (020) 47-20-21 
Telex: 13 216HEPANL 
A,CH,CM,CS,E,MP,P 
Hewlett-Packard Nederland B.V. 
Bongerd 2 

NL 2906VK CAPELLE, A/D USSEL 

P.O. Box 41 

NL 2900AA CAPELLE, A/D USSEL 
Tel: (10) 51-64-44 
Telex: 21261 HEPAC NL 
A,CH,CS,E 

NEW ZEALAND 

Hewlelt-Packard (N.Z.) Ltd. 
169 Manukau Road 
P.O. Box 26-189 
Epsom, AUCKLAND 
Tel: 687-159 

Cable: HEWPACK Auckland 
CH,CM,E,P- 

Hewlelt-Packard (N.Z.) Ltd. 
4-12 Cruickshank Street 
Kilbirnie,WELUNGT0N3 
P.O. Box 9443 

Courtenay Place, WELLINGTONS 
Tel: 877-199 

Cable: HEWPACK Wellington 
CH,CM,E,P 



Northrop Inslnimenis & Systems 
Ltd 

369 Khyber Pass Road 

P.O. Box 8602 

AUCKLAND 

Tel: 794-091 

Telex: 60605 

A,M 

Northrop Inslmments S Systems 

Ltd 

.110 Uandeville St 
P.O. Box 8388 
amTOH/RCH 
Tel: 486-928 
Telex: 4203 
A,M 

Northrop Instnments i Systems 

Ltd 

Sturdee House 
85-87 Ghuznee Street 
P.O. Box 2406 
WELLINGTON 
Tel: 850-091 
Telex: NZ 3380 
A,M 

NORTHERN IRELAND 
See United Kingdom 

NORWAY 

Hewlett-Packard Norge A/S 
Foike Bernadottes vel 50 
P.O. Box 3558 

N-5033 FYLUNGSDALEN (Bergen) 
Tel: (05) 16-55-40 
Telex: 16621 hpnas n 
CH,CS,E,MS 

Hewlett-Packard Norge A/S 

dsterndalen 18 

P.O. Box 34 

N-1345 6STERAS 

Tel: (02) 17-11-80 

Telex: 16621 hpnas n 

A,CH,CM,CS,E,M,P 

OMAN 

Khimjil Ramdas 
P.O. Box 19 
MUSCAT 

Tel: 722225, 745601 

Telex: 3289 BROKER kS MUSCAT 

P 

Suhail S Saud Bahwan 

P.CBox 169 

MUSCAT 

Tel: 734 201-3 

Telex: 3274 BAHWAN m 

PAKISTAN 

Mushko & Company Ltd. 
1-B, Street 43 
Sector F-8/1 
ISLAMABAD 
Tel: 26875 

Cable: FEMUS RawapM 
A,E,M 

Mushko S Company Ltd. 
Oosman Chambers 
AbcUah Haroon Road 
KARACHI 0302 
Tel: 524131, 524132 
Telex: 2894 MUSKO PK 
Cable: COOPERATOR Karachi 
A,E,M,P' 

PANAMA 

Electrdnico Balboa, S.A. 
Ca^ Samuel Lewis, Ed. AHa 
Apartado 4929 
PANAMA S 

Tel: 64-2700 

Telex: 3483 ELECTRON PG 
A,CM,E,M,P 



SALES & SUPPORT OFFICES 

Arranged alphabetically by country 



PERU 

Cb Eleciro imca S.A. 
Los Flamencos 145, San Isidro 
CasHa 1030 
IMA 1 

Tel: 41-432S, 41-3703 
Telex: Pub. BotOi 25306 
ai,E,U.P 

PHILIPPINES 

The Omne Advanced Systems 
Corporaton 

Kco House, Amorsok) Cor. Herrera 
Street 

Legaspl mge, JUMrsV 
P.O. Box 1510 
Metro lUmA 

Tel: 85-35-81, 85-34-91, 85-32-21 

Telex: 3274 ONLINE 

A,CH,CS,E,U 

Electonic Specialists and 

Proponents Inc. 

690-B EpUanlo de los Santos 

Avenue 

Cubao, ouaoMcm 

P.O. Box 2649 Uama 

Tel: 98-96-81, 98-96-82, 98-96-83 

Telex: 40018, 42000 ITT GLOBE 

UACKAY BOOTH 

P 

PORTUGAL 

UundMw 

tntercamtk) UundU de Comtrdo 

S.A.R.L. 

P.O. Box 2761 

Avemda Antonio Augusta de Agular 

138 

P-USBON 

Tel: (19) 53-21-31, 53-21-37 
Telex: 16691 munlerp 
U 

Soqumica 

Av. da UbercMe, 220-2 
1298 USBOA Codex 
Tel: 56 21 81/2/3 
Telex: 13316 SABASA 
P 

Telectra-Empresa TSavca de 

Equipmenlos EI6clricos S.A.R.L. 

fija Rodrigo da Fonseca 103 

P.O. Box 2531 

P-US80M 1 

Tel: (19) 68-60-72 

Telex: 12598 

CH,CS,E,P 

PUERTO RICO 

Hewlett-Packard Puerto Rico 

P.O. Box 4407 

CAROUNA, Puerto Rico 00628 

Cale 272 Edificio 203 

Urb. Country Club 

MO PIEORAS, Puerto Rico 

Tel: (809) 762-7255 

A,CH,CS 

QATAR 

Compulearbia 
P.O. Box 2750 
DOHA 

Tel: 883555 

Telex: 4806 CHPARB 

P 

Eastern Technical Services 

P.0.B0X4747 

DOHA 

Tel: 329 993 

Telex: 4156 EASTEC OH 



Nasser Trading & Contracfhg 

P.0.BOX 1563 

DOHA 

Tel: 22170, 23539 
Telex: 4439 NASSER DH 
U 

SAUDI ARABIA 

modmt Electronic E^abHstmenl 

Hewlett-Packard Division 

P.O. Box 281 

Thuobah 

AL-KHOBAK 

Tel: 864-46 78 

Telex: 671 mmSEKSJ 

Cable: ELECTA AL-KHOBAR 

CH,CS,E,U,P 

Modem Electronic Establishment 

Hevflett-Packard Mutabn 

P.O. Box 1228 

Redec Plaza, 6th Floor 

JEDDAH 

Tel: 644 38 48 

Telex: 4027 12FARNASSJ 

Cable: ELECTA JEWAH 

CH,CS,E,M,P 

Modem Electonic E^Mshment 
Hewlett-Packard Division 
P.0.BOX2728 
RIYADH 

Tel: 491-97 15, 491-63 87 
Telex: 202049 MEERYD SJ 
CH,CS,E,M,P 

SCOTLAND 

See United Kingdom 

SINGAPORE 

Hewlett-Packard Singapore (Sales) 
Pte. Ltd. 

P.O. Box 58 Alexandra Post Office 

SINGAPORE, 9115 

6th Fkxir, Inchcape House 

450-452 Alexandra Road 

SINGAPORE 0511 

Tel: 631788 

Telex: HPSGSO RS 34209 
CMe: HEWPACK, Singapore 
A,CH,CS,E,MS,P 
Dynamar ktlematkmal Ltd. 
Unit 05- 11 Block 6 
Kolam Ayer hdustrial Estate 
mUPORE 1334 
Tel: 747-6188 
Telex: RS 26283 
CM 

SOUTH AFRICA 

Hewlett-Packard So Africa (Pty.) 
Ltd. 

P.O. Box 120 

Howard Place CAPE PROVINCE 7450 
Pine Park Center, Forest Drive, 
Pinelands 

CAPE PROVINCE 7405 

Tel: 53-7954 
Telex: 57-20006 
A,CH,CM,E,I>4S,P 
Hewlett-Packard So Afrtca (Pty.) 
Ltd. 

P.O. Box 37099 
92 Overport Drive 
DURBAN 4067 

Tel: 28-4178, 28-4179, 28-4110 

Telex: 6-22954 

CH,CM 



Hewlett-Packard So Africa (Ply.) 
Ltd. 

6 Linton Arcade 
511 Cape Road 
Linton Grange 
PORT EUZABETH 6001 
Tel: 041-302148 
CH 

Hewlett-Packard So Afrk» (Pty.) 
Ltd. P.O.Box 33345 
Qlenstantia 0010 TRANSVAAL 
1st Fkrar East 

Constantia Park Ridge Shopping 
Centre 

Constantia Park 

PRETORIA 

Tel: 982043 
Telex: 32163 
CH,E 

Hewlett-Packard So Africa (ny.) 
Ltd. 

Private Bag Wendywood 
SANDTON 2144 
Tel: 802-5111, 802-5125 
Telex: 4-20877 

Cable: HEWPACK Johannesburg 
A,CH,CM,CS,E,k«S,P 

SPAIN 

Hewlett-Packard Espafiola S.A. 
Calle Entenza, 321 
E-BARCELONA 29 
Tel: 322.24.51, 321.73.54 
Telex: 52603 hpbee 
A,CH,CS,E,MS,P 
Hewlett-Packard EspaAola S.A. 
CaUe San Vicente S/No 
Ediftek) Albia H 
E-BILBAO 1 
Tel: 423.83.06 
A,CH,E,MS 

Hewlett-Packard EspaRola S.A. 

Crta. de la CoruHa, Km. 16, 400 

Las Rozas 

E-HADRIO 

Tel: (1)637.00.11 

CH,CS,M 

Hewlett-Packard Espafiola S.A. 

Avda. S. Francisco Javier, S/no 

Planta 10. Edificio Sevilla 2, 

E-SEVlUA 5 

Tel: 64.44.54 

Telex: 72933 

A,CS,lylS,P 

Hewlett-Packard Espafiola S.A. 
Calle Ramon GordHo, 1 (Entlo.3) 
E-VALENCU 10 
Tel: 361-1354 
CH,P 

SWEDEN 

Hewlett-Packard Sverige AB 

Sunnanvagen 14K 

S-22226 LUND 

Tel: (046) 13-69-79 

Telex: (854) 17886 (via Spinga 

offk») 

CH 

Hewlett-Packard Sverige AB 

Vastra Vintergatan 9 

S-70344 OREBRO 

Tel: (19) 10-48-80 

Telex: (854) 17886 (via Spinga 

offk») 

CH 



Hewlett-Packard Sverige AB 
Skalholtsgatan 9, KIsta 
Box 19 

S-16393 SPANGA 

Tel: (08) 750-2000 

Telex: (854) 17886 

A,CH,CM,CS,E,MS,P 

Hewlett-Packard Sverige AB 

FrOlallisgatan 30 

S-42132VASTRA-FRdLUNDA 

Tel: (031)49-09-50 

Telex: (854) 17886 (via Spinga 

office) 

CH,E,P 

SWITZERLAND 

Hewlett-Packard (Schweiz) AG 

Clarastrasse 12 

CH-4058 BASLE 

Tel: (61) 33-59-20 

A 

Hev^tt-Packard (Schweiz) AG 
7, rue du Bois-du-Lan 
Case Postale 365 
CH-1217MEYRIN 1 

Tel: (0041)22-83-11-11 
Telex:27333 HPAG CH 
CH,CM,CS 

Hewlett-Packard (Schweiz) AG 

Allmend 2 

CH-8967 WIDEN 

Tel: (0041) 57 31 21 11 

Telex: 53933 hpag ch 

Cable: HPAG CH 

A,CH,CM,CS,E,MS,P 

SYRIA 

General Electronic he. 
Nuri Basha P.O. Box 5781 
DAIUSCUS 

Tel: 33-24-87 

Telex: 11216 ITIKAL SY 

Cable: ELECTROBOR DAMASCUS 

E 

MkkSe East Electronics 
Place AzmS 
P.0.BOX2308 
DAIUSCUS 
Tel: 334592 

Telex: 1 1304 SATACO SY 
M,P 

TAIWAN 

Hewlett-Packard Far East Ltd. 

Kaohsiung Office 

2/F 68-2, Chung Cheng 3rd Road 
KAOHSIUNG 

Tel: 241-2318, 261-3253 
CH,CS,E 

Hewlett-Packard Far East Ltd. 
Taiwan Branch 
5th Fk)or 

205 Tun Hwa North Road 
TAIPEI 

Tel: (02) 712-0404 
Cable:HEWPACK Taipei 
A,CH,CM,CS,E,M,P 

hg L^ Trading Co. 

SrdFkmr, 7Jen-AiRoad, Sec. 2 

TAIPEI too 

Tel: (02) 3948191 

Cable: waiH TAPEI 

A 



THAILAND 

IMnesa 

30 Patpong Ave., Surlwong 
BAHOKOKS 

Tel: 235-5727 

Telex: 84439 Simonco TH 

Cable: UNIKKSA Bangkok 

A,CH,CS,E,M 

Bangkok Business Equipment Ltd. 

5/5-6 Dejo Road 

BiNGKOK 

Tel: 234-8670, 234-8671 
Telex: 87669-BEOUPT TH 
Cable: BUaOM>TBan^ok 
P 

TRINIDAD & TOBAGO 

Caribbean Telecoms Ltd. 

50/A Jemin^m Avenue 

P.O. Box 732 

PORT-OF-SPAIN 

Tel: 62-44213. 62-44214 

Telex: 235,272 HUGCO WG 

CM,E,M,P 

TUNISIA 

Tunisle Electronkjue 

31 Avenue de la Liierle 
Turns 

Tel: 280-144 
E,P 

Corema 

1 ter. Av. de Carthage 
TIMS 

Tel: 253-821 

Telex: 12319 CABAM TN 

M 

TURKEY 

Teknim Company Ltd. 
Iran CaddesiNo. 7 
Kavaktdere, AIKARA 
Tel: 275800 
Telex: 42155 TKNM TR 
E 

E.U.A. 

Medina EUem Sokak No.4 1/6 

Yt^sel Caddesi 

AMKAHA 

Tel: 175 622 

M 

UNITED ARAB EMIRATES 

Emilac Ltd. 
P.O. Box 1641 
SHARJAH 

Tel: 354121, 354123 
Telex: 68136 Emilac Sh 
CH,CS,E,M,P 

UNITED KINGDOM 

GREAT BRITAIN 

Hewlett-Packard Ltd. 
Trafalgar House 
Navigation Road 
ALTRINCHAM 

Chesire WA14 1NU 
Tel: (061) 928-6422 
Telex: 668068 
A,CH,CS,E,M 
Hewlett-Packard Ltd. 
Oakfield House, Oakfield Grove 
Clifton 

BRISTOL BS8 2BN, Avon 
Tel: (027) 38606 
Telex: 444302 
CH,M,P 



SALES & SUPPORT OFFICES 

Arranged alphabetically by country 



GREAT BRITAIN (Cont'd) 

Hewlett-Packard Ltd. 
Fourier House 
257-263 High Street 
LONDON COLMEY 

Herts., AL2 1HA, SL Mbans 
Tel: (0727) 24400 
Telex: 1-8952716 
CH,CS.E 

Hewlett-Packard Ltd. 
Quadrangle 
106-118 Statkin Road 
REDHILL, Surrey 
Tel: (0737) 68655 
Telex: 947234 
CH,CS,E 

Hewlett-Packard Ltd. 

AvoT) House 

435 StraHord Road 

SHHILEY, Solihull 

West kilkilands B90 4BL 

Tel: (021) 745 8800 

Telex: 339105 

a\ 

Hewlett-Packard Ltd. 
West End House 41 
High Street, West End 
SOUTHAMPTON 

Hampshire S03 3D0 
Tel: (703) 886767 
Telex: 477138 
Oi 

Hewlett-Packard Ltd. 
King Street Lane 
WINNEIKH, Wokingham 
Berkshire RG11 5AR 
Tel: (0734) 784774 
Telex: 847178 
A,(W,E,M 

Hewlett-Packard Ltd. 
Nine kime RMe 
WOKINGHAH 
Berkshire, 3RQ11 3LL 
Tel: 3446 3100 
Telex: 84-88-05 
CH,CS,E 

NORTHERN IRELAND 

Cardiac Services Company 
9SA Finaglty fkiad SoM 
BBLFASTBT 100BY 
Tei: (0232) 62S-S66 
Telex: 747626 
U 

SCOTLAND 

Hewlen-Packard Ltd. 
SOUTH QUEENSFEIWY 

West Lothian, EH30 9GT 
Tel: (031) 3311188 
Telex: 72682 
A,CH,(%I,CS,E,M 

UNITED STATES 

Alabama 

Hewlett-Packard Co. 

P.O. Box 7000 

8290 WhHesburg Drive. S.E. 

HUNTSVILLE, AL 35802 

Tel: (205) 830-2000 

CH,CM,CS,E,M* 

Arizona 

Hewlen-Packard Co. 
8080 Point Parkway West 
PHOENIX, AZ 85044 
Tel: (602) 273-8000 
A,CH,(»il,CS,E,MS 
Hewlett-Packard Co. 
2424 East Aragon Road 
TUCSON, AZ 85706 
Tel: (602) 889-4631 
CH.E,MS" 



California 

Hewlett-Packard Co. 
99 South Hin Dr. 
4BRISBANE, CA 94005 
Tel: (415) 330-2500 
CH,CS 

Hewlett-Packard Co. 

7621 Canoga Avenue 

CANOGA PARK, CA 91304 

Tel: (213) 702-8363 

A,CH,CS,E,P 

Hewlett-Packard Co. 

P.O. Box 7830 (93747) 

5060 E. Clinton Avenue, Suite 102 

FRESNO, CA 93727 

Tel: (209) 252-9652 

CH,CS,MS 

Hewlett-Packard Co. 
P.O. Box 4230 
1430 East Orangethorpe 
FULURTON, CA 92631 
Tel: (714) 870-1000 
CH,CM,CS,E,MP 

Hewlett-Packard Co. 
320 S. KeUogg, SuHe B 
G0LETA,CA93117 
Tel: (805) 967-3405 
CH 

Hewlett-Packard Co. 
5400 W. Rosecrans Boulevard 
LAWNDALE, CA 90260 
P.O. Box 92105 
LOS ANGELES, CA 90009 
Tel: (213) 970-7500 
Telex: 910-325-6608 
CH,Clul,CS,MP 
Hewlett-Packard Co. 
3200 Hillvlew Avenue 
PALO ALTO, CA 94304 
Tel: (415) 857-8000 
CH,CS,E 

Hewtett-Packard Co. 

P.O. Box 15976 (95813) 

4244 So. Market Court, Suite A 

SACRAMENTO, CA 95834 

Tel: (916) 929-7222 

A*,CH,CS,E,MS 

Hewlett-Packard Co. 

9606 Aero Drive 

P.O. Box 23333 SAN DIEOO, CA 

92123 

Tel: (619) 279-3200 
CH,CM,CS,E,MP 
Hewlett-Packard Co. 
2305 Camino Ramon "C 
SAN RAMON, CA 94583 
Tel: (415) 838-5900 
CH,CS 

Hewlen-Packard Co. 
P.O. Box 4230 
FuHerton, CA 92631 
363 Brookhollow Drive 
SANTA ANA, CA 92705 
Tel: (714) 641-0977 
A,CH,CM,CS,MP 
Hewlett-Packard Co. 
3003 Scott Boulevard 
SANTA CURA,CA 95050 
Tel: (408) 988-7000 
Telex: 910-338-0586 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
5703 Corsa Avenue 
WESTUKE VILLAGE, CA 91362 
Tel: (213) 706-6800 
E*,CH*,CS* 



Colorado 

Hewlen-Packard Co. 
24 Inverness Place, East 
ENGLEW00D,CO80112 
Tel: (303) 771-3455 
Telex: 910-935-0785 
A,CH,C«ll,CS,E,MS 

Connecticut 

Hewlett-Packard Co. 

47 Barnes industrial Road South 

P.O. Box 5007 

WALLINGFORD, CT 06492 

Tel: (203) 265-7801 

A,CH,Cli4,CS,E,MS 

Florida 

Hewlen-Packard Co. 

P.O. Box 24210 (33307) 

2901 N.W. 62nd Street 

FORT LAUDERDALE, FL 33309 

Tel: (305) 973-2600 

CH,CS.E,MP 

Hewlen-Packard Co. 

P.O. Box 13910 

6177 Lake EHenor Drive 

ORUNOO, FL 32809 

Tel: (305) 859-2900 

A,CH,CM,CS,E,MS 

Hewlett-Packard Co. 

5750B N. Hoover Blvd., Suite 123 

TAMPA, FL 33614 

Tel: (813) 884-3282 

A*,CH,CM,CS,E*,M* 

Georgia 

Hewlett-Packard Co. 
P.O. Box 105005 
30348 ATUNTA,6A 
2000 South Park Place 
ATLANTA, GA 30339 
Tel: (404) 955-1500 
Telex: 810-766-4890 
A,CH,CI«t,CS,E,MP 

Hawaii 

Hewlett-Packard Co. 
Kawaiahao Plaza, Suite 190 
567 South King Street 
HONOLULU, HI 96813 
Tel: (808) 526-1555 
A,CH,E,MS 

lllinola 

Hewlett-Packard Co. 
P.O. Box 1607 
304 Ekkirado Road 
BLOOMINGTON, IL 61701 
Tel: (309) 662-9411 
CH,MS** 

Hewlett-Packard Co. 
1100 31st Street. Suite 100 
DOWNERS GROVE, IL 60515 
Tel: (312) 960-5760 
CH,CS 

Hewlett-Packard Co. 
5201 Tonview Drive 
ROLLING MEADOWS, IL 60008 
Tel: (312) 255-9800 
Telex: 910-687-1066 
A,CH,CM,CS,E,MP 

Indiana 

Hewlett-Packard Co. 

P.O. Box 50807 

7301 No. Shadeiand Avenue 

INDIANAPOUS, IN 46250 

Tel: (317)842-1000 

A,CH,CM,CS,E,MS 



Iowa 

Hewlett-Packard Co. 
1776 22nd Street, Suite 1 
WEST DES MOINES, lA 50262 
Tel: (515) 224-1435 
CH,MS** 

Hewlett-Packard Co. 
2415 Heinz Road 
IOWA CITY, lA 52240 
Tel: (319) 351-1020 
CH,E*,MS 

Kansas 

Hewlett-Packard Co. 
7804 East Funston Road 
Suite 203 

WICHITA, KA 67207 
Tel: (316) 684-8491 
CH 

Kentucky 

Hewlett-Packard Co. 
10300 Linn Station Road 
Suite too 

LOUISVILLE, KY 40223 
Tel: (502) 426-0100 
A,CH,CS,MS 

Louisiana 

Hewlett-Packard Co. 
P.O. Box 1449 
KENNER, LA 70063 
160 James Drive East 
ST. ROSE, U 70087 
Tel: (504) 467-4100 
A,CH,CS,E,MS 

Maryland 

Hewlett-Packard Co. 
3701 Koppers Street 
BALTIMORE, M. 21227 
Tel: (301) 644-5800 
Telex: 710-862-1943 
A,CH,CM,CS,E,MS 
Hewlett-Packard Co. 
2 Choke Cherry Road 
ROCKVILU, MD 20850 
Tel: (301) 948-6370 
A,CH,CM,CS,E,MP 

Massachusetts 

Hewlett-Packard Co. 
32 Hartwell Avenue 
LEXINGTON, MA 02173 
Tel: (617) 861-8960 
A,CH,CM,CS,E,MP 

Michigan 

Hewlett-Packard Co. 
23855 Research Drive 
FARMINGTON HILLS, Ml 48024 
Tel; (313) 476-6400 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
4326 Cascade Road S.E. 
GRAND RAPIDS, Ml 49506 
Tel: (616) 957-1970 
CH,CS,MS 

Hewlett-Packard Co. 
1771 W. Big Beaver Road 
TROY, Ml 48084 
Tel: (313) 643-6474 
CH.CS 

Minnesota 

Hewlett-Packard Co. 
2025 W. Larpenteur Ave. 
ST. PAUL, MN 55113 
Tel: (612) 644-1 100 
A,CH,CM,CS,E,MP 



Missouri 

Hewlen-Packard Co. 
11131 Colorado Avenue 
KANSAS CITY, MO 64137 
Tel: (816) 763-8000 
A,CH,CM,CS,E,MS 
Hewlett-Packard Co. 
13001 HoHenberg Drive 
BRIDGETON, MO 63044 
Tel: (314) 344-5100 
A,CH,CS.E,MP 

Nebraska 

Hewlett-Packard 

10824 Old Mill Rd., Suite 3 

OMAHA, NE 68154 

Tel: (402)334-1813 

CM,MS 

New Jersey 

Hewlen-Packard Co. 
W120 Century Road 
PARAMUS, NJ 07652 
Tel: (201) 265-5000 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
60 New England Av. West 
PtSCATAWAY, NJ 08854 
Tel; (201) 981-1199 
A,CH,CM,CS,E 

New Mexico 

Hewlen-Packard Co. 
P.O. Box 11634(87192) 
11300 Lomas Blvd.,N.E. 
ALBUQUERQUE, NM 87112 
Tel: (505) 292-1330 
CH,CS,E,MS 

New York 

Hewlett-Packard Co. 
Computer Drive South 
ALBANY, NY 12205 
Tel: (518)458-1550 
Telex; 710-444-4691 
A,CH,E,MS 
Hewlett-Packard Co. 
P.O. Box AC 
9600 Main Street 
CURENCE, NY 14031 
Tel: (716) 759-8621 
CH 

Hewlett-Packard Co. 
200 Cross Keys Offtee Park 
FAIRPORT, NY 14450 
Tel: (716) 223-9950 
CH,CM,CS,E,MS 
Hewlett-Packard Co. 
7641 Henry Clay Blvd. 
LIVERPOOL, NY 13088 
Tel: (315) 451-1820 
A,CH,CM,E,MS 
Hewlen-Packard Co. 
No. 1 Pennsylvania Plaza 
55th Fk>or 

34th Street & 8th Avenue 
MANHAHAN NY 10001 

Tel; (212)971-0800 
CH,CS,E-,M* 
Hewlett-Packard Co. 
250 Westchester Avenue 
WHITE PLAINS, NY 10604 
Tel: (914) 328-0884 
CM,CH,CS,E 
Hewlett-Packard Co. 
3 Crossways Park West 
WOODBURY, NY 11797 
Tel: (516) 921-0300 
Telex: 510-221-2183 
A,CH,CM,CS,E,MS 



SALES & SUPPORT OFFICES 

Arranged alphabetically by country 



UNITED STATES (Cont'd) 

North Carolina 

Hewlett-Packard Co. 
P.O. Box 26500 (27420) 
5605 Roanne Way 
GREENSBORO, NC 27409 
Tel: (919) 852-1800 
A,CH,CM,CS,E,MS 

Ohio 

Hewlett-Packard Co. 
9920 Carver Road 
CmaNNATI, OH 45242 
Tel: (513) 891-9870 
CH,CS,MS 

Hewlett-Packard Co. 
16500 Sprague Road 
(XEVELAND, OH 44130 
Tel: (216) 243-7300 
A,CH,CM,CS,E,MS 
Hewlett-Packard Co. 
962 Crupper Ave. 
COLUMBUS, OH 43229 
Tel: (614) 436-1041 
CH,CM.CS,E* 
Hewlett-Packard Co. 
P.O. Box 280 
330 Progress Rd. 
DAHON, OH 45449 
Tel: (513) 859-8202 
A,CH,CM,E*,MS 

Oklahoma 

Hewlett-Packard Co. 
P.O. Box 75609 (73147) 
304 N. Meridian, SuHe A 
3 

OKUmOMACin, OK 73107 
Tel: (405) 946-9499 
A*,CH,E*,MS 
Hewlett-Packard Co. 
3840 S. 103rd E. Avenue 
Logan Building, Suite 100 
TULSA, OK 74145 
Tel: (918) 665-3300 
A",CH,CS,M* 

Oragon 

Hewlett-Packard Co. 
9255 S. W. Pkineer Court 
WILS0NV1LLE, OR 97070 
Tel: (503) 682-8000 
A,CH,CS,E',MS 

Pannaylvania 

Hewlett-Packard Co. 
1021 8th Avenue 
KING OF PRUSSIA, PA 19046 
Tel: (215) 265-7000 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
111 Zeta Drive 
PITTSBURGH, PA 15238 
Tel: (412) 782-0400 
A,CH,CS,E,MP 

South Carolina 

Hewlett-Packard Co. 
P.O. 80X21708(29221) 
Brookskje Park, Suite 122 
1 Harbison Way 
COLUMBIA, SC 29210 
Tei: (803) 732-0400 
CH,E,MS 

Tennaaaaa 

Hewlett-Packard Co. 
3070 Directors Row 
MEMPHIS, TN 38131 
Tel: (901) 346-8370 
A,CH,MS 



Texas 

Hewlett-Packard Co. 
Suite C- 110 
4171 North Mesa 
EL PASO, TX 79902 
Tel: (915) 533-3555 
CH,E*,MS" 
Hewlett-Packard Co. 
P.O. Box 42816 (77042) 
10535 Harwin Street 
HOUSTON, TX 77036 
Tel: (713) 776-6400 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
P.O. Box 1270 
930 E. Campbell Rd. 
RKHAROSON, TX 75080 
Tel: (214) 231-6101 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
P.O. Box 32993 (78216) 
1020 Central Parkway South 
SAN ANTONIO, TX 78232 
Tel: (512) 494-9336 
CH,CS,E,MS 

Utah 

Hewlett-Packard Co. 
P.O. Box 26626 (84126) 
3530 W. 2100 South 
SALTLAKECITY,UT 84119 
Tel: (801) 974-1700 
A,CH,CS,E,MS 

Virginia 

Hewlett-Packard Co. 
P.O. Box 9669 (23228) 
RKHMOND, Va. 23228 
4305 Cox Road 
GLEN ALLEN, Va. 23060 
Tel: (804) 747-7750 
A,CH,CS,E,MS 

Washington 

Hewlett-Packard Co. 
15815 S.E. 37th Street 
BELLEVUE, WA 98006 
Tel: (206) 643-4000 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
Suite A 

708 North Argonne Road 
SPOKANE, WA 99206 
Tel: (509) 922-7000 
CH,CS 

West Virginia 

Hewlett-Packard Co. 

P.O. Box 4297 

4604 MacCorkle Ave., S.E. 

CHARLESTON, WV 25304 

Tel: (304) 925-0492 

A,MS 

Wisconsin 

Hewlett-Packard Co. 
ISO S. Sunny Stope Road 
BROOKFIELO, Wl S300S 
Tel: (414) 784-8800 
A,CH,CS,E*,MP 



URUGUAY 

Pablo Ferrando SAC. e I. 
Avenida Hala 2877 
CasOa de Coneo 370 

mmivmo 

Tel: 80 2586 

Telex: Public Booth 901 

A,CU,B,U 

VENEZUELA 

Hewlett-Packard de Venezuela C.A. 

3A Transversal Los Mces Norte 

Edifk:io Segre 

Apartado 50933 

CARACAS 1071 

Tel: 239-4133 

Telex: 25146 HEWPACK 

A,CH,CS,E,MS,P 

Hewlett-Packard de Venezuela C.A. 

Calle-72-Entre 3H Y 3Y, No.3H-40 

Edifk;k> Ada-Evelyn, Local B 

Apartado 2646 

HARACAIBO, Estado Zulia 

Tel: (061) 80.304 

C,E* 

Hewlett-Packard de Venezuela C.A. 

Calle Vargas Rondon 

Edificio Seguros Carabobo, Piso 10 

VALENCIA 

Tel:(041) 51 385 

CH,CS,P 

(Mnodio S.A. 

Esle 2 - Sur 21 No. 148 

Apartado 1053 

CAKACAS 1010 

Tel: 571-3511 

Telex: 21529 CaUODIO 

U 

ZIMBABWE 

Field Technical Sales 
45 Kelvin Road, North 
P.B. 3458 

SAusmr 

Tel: 705 231 
Telex: 4-122 fm 
C,£M,P 



HEADQUARTERS 
OFFICES 

If there is no sales offkse listed for 
your area, contact one of these 
headquarters offices. 

NORTH/CENTRAL 
AFRICA 

Hewlett-Packard S.A. 
7 Rue du Bds-du-Lan 
CH-1217 MEYRIN 1, Switzerland 
Tel: (022) 83 12 12 
Telex: 27835 hpse 
Cable: HEWPACKSA Geneve 

ASIA 

Hewlett-Packard Asia Ltd. 
6th Floor, Sun Hung Kal Centre 
30 Harbour Rd. 
G.P.O. Box 795 
HONG KONG 
Tel: 5-832 3211 
Telex: 66678 HEWPA HX 
Cable: HEWPACK HONG KONG 

CANADA 

Hewiell-Packard (Canada) Ltd. 
6877 Goreway Drive 
MISSISSAUGA, Ontario L4V 1M8 

Tel: (416) 678-9430 
Telex: 610-492-4246 

EASTERN EUROPE 

Hewlett-Packard Ges.m.b.h. 

Liebigasse 1 

P.0.BOX 72 

A- 1222 VIENNA, Austria 

Tei: (222) 2365110 

Telex: 1 3 4425 HEPA A 

NORTHERN EUROPE 

Hewlett-Packard S.A. 
Uilenslede 475 
ML- 1183 AG AMSTELVEEN 
The Netherlands 
P.O.Box 999 
NL-1180AZ AMSTELVEEN 
The Netherlands 
Tei: 20 437771 

OTHER EUROPE 

Hewlett-Packard S.A. 
7 rue du Bols-du-Lan 
CH-1217 MEYRIN 1, Switzerland 

Tel: (022) 83 1212 
Telex: 27835 hpse 
Cable: HEWPACKSA Geneve 

MEDITERRANEAN AND 
MIDDLE EAST 

Hewlett-Packard S.A. 

Mediterranean and Middle East 

Operations 

Atrina Centre 

32 Kifissias Ave. 

Maroussi, ATHENS, Greece 

Tel: 682 88 11 

Telex: 21-6588 HPAT GR 

Cable: HEWPACKSA Athens 

EASTERN USA 

Hewlett-Packard Co. 
4 Choke Cherry Road 
Rockvllla, MD 20850 
Tel: (301) 258-2000 

MIDWESTERN USA 

Hewlett-Packard Co. 
5201 Toiiview Drive 
ROLUNG MEADOWS, IL 60008 
Tel: (312) 255-9800 



SOUTHERN USA 

Hewlett-Packard Co. 
P.O. Box 105005 
450 Interstate N. Parkway 
ATLANTA, GA 30339 
Tel: (404) 955-1500 

WESTERN USA 

Hewlett-Packard Co. 
3939 Lankershim Blvd. 
LOS ANGELES, CA 91604 
Tel: (213) 877-1282 

OTHER INTERNATIONAL 
AREAS 

Hewlett-Packard Co. 
Intercontinental Headquarters 
3495 Deer Creek Road 
PALO ALTO, CA 94304 
Tel: (415) 857-1501 
Telex: 034-8300 
Cable: HEWPACK 
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